Hi
Copy this into the modules
Function FormatInterval(ByVal Interval As Variant) As String
Dim days As Long, Hours As Long, Minutes As Long, Seconds As Long
If IsNull(Interval) Then Exit Function
'
' Calculate hours
Interval = Interval * 24
Hours = Int(Interval)
Interval = Interval - Hours
' Calculate minutes
Interval = Interval * 60
Minutes = Int(Interval)
Interval = Interval - Minutes
' Calculate seconds
Seconds = Int(Interval * 60 + 0.5)
If Seconds = 60 Then
Minutes = Minutes + 1
Seconds = 0
End If
If Minutes >= 60 Then
Hours = Hours + 1
Minutes = Minutes - 60
End If
If Hours < 0 Then
Hours = Hours + 24
End If
FormatInterval = Hours & ":" & Format(Minutes, "00")
End Function
Now in a query create a calculated field like this-
Timediff:FormatInterval([Stop_Time]-[Start_Time])
now run it
Col