ник: Анатолий (Киев)
Function TimeDiff(DateStart As Variant, DateEnd As Variant) As String
Dim v As Variant, h As Integer, m As Integer, s As Integer
v = DateEnd - DateStart
If Not IsNumeric(v) Then Exit Function
h = Int(v) * 24 + Hour(v)
m = Minute(v)
s = Second(v)
TimeDiff = h & ":" & Format$(m, "00") & ":" & Format$(s, "00")
End Function
|
Эта функция возвращает строку в виде: Ч:ММ:СС, или пустую, если любой из аргументов - Null.
Например (в окне отладки):
?TimeDiff(date,now)
9:13:40
?TimeDiff(date-1,now)
33:13:51
Ее можно кинуть в общий модуль, и использовать в запросе.