Calculating Military Time

Hi!
I used Query in Access to calculate the time in and out of the employee of course to get the total minutes, however i've been encountered a problem. when i put for timeIn=22:00 and for time Out =24:00 the total mins display like this:" -1320 ", which actually wrong. it should be "120" mins instead of "-1320". how i can fix this problem??? i already set those data into short time format.
Please help me.... thank you....

re: Calculating Military Time

Hey,
Try this simple method,

Option Compare Database
Dim minsIn As Long
Dim minsOut As Long
Private Sub TimeIn_Exit(Cancel As Integer)
If TimeIn = 0# Then
minsIn = 1440
Else
minsIn = VBA.DatePart("h", TimeIn) * 60
minsIn = minsIn + VBA.DatePart("n", TimeIn)
End If
End Sub
Private Sub TimeOut_Exit(Cancel As Integer)
If TimeOut = 0# Then
minsOut = 1440
Else
minsOut = VBA.DatePart("h", TimeOut) * 60
minsOut = minsOut + VBA.DatePart("n", TimeOut)

End If
End Sub

Private Sub TotalTime_Enter()
TotalTime = minsOut - minsIn
End Sub

re: Calculating Military Time

1. Midnight should be expressed as 00:00 and not 24:00.
2. You must allow for the post-Midnight scenario by adding a Day in Minutes (1,440).
3. Based on a [StartTime] and [EndTime] Fields, and a Table named tblTest, the following Query using a simple Public Function should solve the problem:

Test Data (tblTest):
OUTPUT:

re: Calculating Military Time

Hi!
It works good!!! Thanks for the help!

re: Calculating Military Time

You are quite welcome.