Time Diff

[LostAngel]

Hello, I have two times that I would like to find the Hours, Minutes, Seconds between. I am using the following code:

Private Function TimeDiff(strTimeIn As String, strTimeOut As String)
Dim hour As Long, min As Long, sec As Long
 
    sec = DateDiff("s", strTimeIn, strTimeOut)
    
    hour = Int(sec / 3600)
    sec = sec - (hour * 3600)
    min = Int(sec / 60)
    sec = sec - (min * 60)
    TimeDiff = Format(hour, "00") & ":" & Format(min, "00") & ":" & Format(sec, "00")
End Function

It works if say I have a TimeIn of 8:00:00AM and a TimeOut of 12:00:00 PM...but if I have a TimeIn of say 01:00:00 PM and a TimeOut of 08:00:00AM (Time diff should be 19 hours)...I get a timediff of -5:00:00. It is going 'back' in time instead of forward. How can I fix this?

[LinXG]

Hi LostAngel;

Are you using the full date or just the hh:mm:ss portion?

Your second example won't work without complete dates and times.

Hope this puts you on the right track.

[Joacim Andersson]

Try this:

Private Function TimeDiff(strTimeIn As String, strTimeOut As String)
    Dim hour As Long, min As Long, sec As Long
    Dim time1 As Date, time2 As Date
    
    time1 = CDate(strTimeIn)
    time2 = CDate(strTimeOut)
    sec = DateDiff("s", time1, time2)
    Do While sec < 0 Then
        time2 = time2 + 1 'add 1 day
        sec = DateDiff("s", time1, time2)
    Loop
    hour = Int(sec / 3600)
    sec = sec - (hour * 3600)
    min = Int(sec / 60)
    sec = sec - (min * 60)
    TimeDiff = Format(hour, "00") & ":" & Format(min, "00") & ":" & Format(sec, "00")
End Function