'=TimeDiff("1/22/95 11:00:00 PM","1/24/95 12:30:00 AM")
' By L. Todd Knudsen
Function TimeDiff (InTime As Variant, OutTime As Variant) As Variant
    DateIn = DateValue(InTime)
    TimeIn = TimeValue(InTime)
    DateOut = DateValue(OutTime)
    TimeOut = TimeValue(OutTime)

    DiffDate = DateOut - DateIn
    DiffHour = Hour(TimeOut) - Hour(TimeIn)
    DiffMin = Minute(TimeOut) - Minute(TimeIn)
    DiffHour = DiffHour + (DiffDate * 24)

    TimeDiff = Format(DiffHour & ":" & Right("00" & DiffMin, 2), "hhh:mm")

    If DiffDate < 0 Or DiffHour < 0 Or DiffMin < 0 Then
        MsgBox "[Time Card] - Time Computation Error!", 48, "Time Card"
        Exit Function
    End If
End Function
