How to handle Time ?

[hoym]

I know that is a function dateadd & datediff in Access to handle DATE ; but is it any similar functions for manageing TIME ?

 

[CosmoKramer]

Here's a function to calculate the difference between two Date/Time fields. As written, it will return days, hours and minutes.

Public Function TimeElapsed(dIn As Variant, dOut As Variant) As String
    If dOut - dIn > 0 Then
        TimeElapsed = CStr(Int(Format(dOut - dIn, "General Number"))) & " Day(s) " & DatePart("h", dOut - dIn) & " Hour(s) " & DatePart("n", dOut - dIn) & " Minute(s)"
    Else
        TimeElapsed = ""
    End If
End Function

To show a time calculation in a decimal representation of hours, i.e. 09/16/02 07:00 to 09/16/02 15:30 = 8.5 hours, try this:

Public Function TimeElapsed(dIn As Variant, dOut As Variant) As Double
    If dOut - dIn > 0 Then
        TimeElapsed = ((CInt(Int(Format(dOut - dIn, "General Number"))) * 24) + DatePart("h", dOut - dIn)) + (DatePart("n", dOut - dIn) / 60)
    Else
        TimeElapsed = ""
    End If
End Function

In your query, add a field something like this:

ElapsedTime: TimeElapsed([TimeFieldIn],[TimeFieldOut])