Как получить временной интервал? Помогите, плиз.

[Ruslan Demidow]

Имеются две даты. Нужно получить временной интервал между ними отображаемый в формате DD HH:MM:SS
Т.е. разницу между ними в количестве дней, часов (в пределах суток), минутах (в пределах часа), секундах (в пределах минуты).
Я уже по всякому пробовал - не выходит. Или получается не то что нужно, или заползаю в такие дебри кода и промежуточных данных, что аж плохо становится.
Помогите плиз. Может кто-то делал такое уже.

[Шурик]

Да... помогите, мне тожа это нужно, чето сам не допираю как сделать!!!
В инете искал нефика не нашел

[alibek]

Один из вариантов:

Код: Выделить всё

Function DeltaDate(ByVal Date1 As Date, ByVal Date2 As Date, Optional ByVal ItemSeparator As String = vbSpace, Optional ByVal SecondsSuffix As String, Optional ByVal MinutesSuffix As String, Optional ByVal HoursSuffix As String, Optional ByVal DaysSuffix As String) As String
Const SM As Long = 60&, MH As Long = 60&, HD As Long = 24&
Dim D As Long, H As Long, M As Long, S As Long
If Date2 > Date1 Then
  S = (Date2 - Date1) * SM * MH * HD
Else
  S = (Date1 - Date2) * SM * MH * HD
End If
If Len(DaysSuffix) > 0 Then
  M = Fix(S / SM)
  S = S - M * SM
  H = Fix(M / MH)
  M = M - H * MH
  D = Fix(H / HD)
  H = H - D * HD
  DeltaDate = Trim$(Str$(D)) & DaysSuffix _
            & IIf(Len(HoursSuffix) = 0, vbNullString, ItemSeparator & Trim$(Str$(H)) & HoursSuffix) _
            & IIf(Len(MinutesSuffix) = 0, vbNullString, ItemSeparator & Trim$(Str$(M)) & MinutesSuffix) _
            & IIf(Len(SecondsSuffix) = 0, vbNullString, ItemSeparator & Trim$(Str$(S)) & SecondsSuffix)
ElseIf Len(HoursSuffix) > 0 Then
  M = Fix(S / SM)
  S = S - M * SM
  H = Fix(M / MH)
  M = M - H * MH
  DeltaDate = Trim$(Str$(H)) & HoursSuffix _
            & IIf(Len(MinutesSuffix) = 0, vbNullString, ItemSeparator & Trim$(Str$(M)) & MinutesSuffix) _
            & IIf(Len(SecondsSuffix) = 0, vbNullString, ItemSeparator & Trim$(Str$(S)) & SecondsSuffix)
ElseIf Len(MinutesSuffix) > 0 Then
  M = Fix(S / SM)
  S = S - M * SM
  DeltaDate = Trim$(Str$(M)) & MinutesSuffix _
            & IIf(Len(SecondsSuffix) = 0, vbNullString, ItemSeparator & Trim$(Str$(S)) & SecondsSuffix)
Else
  DeltaDate = Format$(S, "0") & SecondsSuffix
End If
End Function


Использовать:
Debug.Print DeltaDate(Now()-2.3, Now(), , , " м.", " ч.", " д.")

[A.A.Z.]

А вот мой вариант (пока его делал, alibek уже ответил, а выкидывать жалко ):

Код: Выделить всё

Function Raznitsa(ByVal Date1 As Date, ByVal Date2 As Date) As String
Dim Seconds@, Minutes@, Hours@, Days@, S@, D1 As Date, D2 As Date
If Date2 < Date1 Then D1 = Date2: D2 = Date1 Else D1 = Date1: D2 = Date2
Seconds = DateDiff("s", D1, D2, vbMonday)
Days = Int(Seconds / 86400@)
If Days = 0 Then
Hours = Int(Seconds / 3600)
  If Hours = 0 Then
   Minutes = Int(Seconds / 60)
    If Minutes = 0 Then
     Raznitsa = "0 00:00:" & Conv(Seconds): Exit Function
    Else
     S = Seconds - Minutes * 60
     Raznitsa = "0 00:" & Conv(Minutes) & ":" & Conv(S): Exit Function
    End If
Else
  Hours = Int(Seconds / 3600)
  S = Seconds - Hours * 3600
  Minutes = Int(S / 60)
  If Minutes = 0 Then
   Raznitsa = "0 " & Conv(Hours) & ":" & "00:" & Conv(S): Exit Function
  Else
   S = S - Minutes * 60
   Raznitsa = "0 " & Conv(Hours) & ":" & Conv(Minutes) & ":" & Conv(S): Exit Function
  End If
End If
Else
S = Seconds - Days * 86400
Hours = Int(S / 3600)
If Hours = 0 Then
  Minutes = Int(S / 60)
  If Minutes = 0 Then
   Raznitsa = CStr(Days) & " 00:00:" & Conv(S)
  Else
   S = S - Minutes * 60
   Raznitsa = CStr(Days) & " 00:" & Conv(Minutes) & ":" & Conv(S)
  End If
Else
  S = S - Hours * 3600
  Minutes = Int(S / 60)
  If Minutes = 0 Then
   Raznitsa = CStr(Days) & " " & Conv(Hours) & ":" & "00:" & Conv(S): Exit Function
  Else
   S = S - Minutes * 60
   Raznitsa = CStr(Days) & " " & Conv(Hours) & ":" & Conv(Minutes) & ":" & Conv(S): Exit Function
  End If
End If
End If
End Function

Function Conv(ByVal Number As Long) As String
If Len(CStr(Number)) = 1 Then Conv = "0" & CStr(Number) Else Conv = CStr(Number)
End Function

Использовать: Debug.Print Raznitsa(Date1, Date2)
Я посчитал, разница между двумя датами не должна превышать 487452 лет.

[GSerg]

Люди...
Вы, это...
Мануал читаете иногда?
Чем вам DateDiff не нравится?

[Шурик]

Люди...
Вы, это...
Мануал читаете иногда?
Чем вам DateDiff не нравится?

Все равно возьму все на вооружение

[A.A.Z.]

Так ведь DateDiff только в чем-нибудь (в сек., мин. и т.д.) выводит, а чтобы в формате - я не видел...

[Ruslan Demidow]

Alibek & A.A.Z. - Спасибо большое.
Попробую оба варианта

[Zer]

Ой, ну зачем-же так извращатся... Почему-бы не подсчитать вручную?
По объёму будет столько-же, но на сколько проще...