Total working hours problem if it start from 30 at night and ends onthe 31 morning

[Tia]

Dear all, i am using this to get the total wroking hours per day
TOTAL WORKING HOURS PER DAY: DateDiff("n",[TIME IN],[TIME OUT]+DateDiff
("n",[TIME IN 2],[TIME OUT 2]))/60

It is working perfectly until i have this
Employee Name Day Date Time Clock
In/OUT
Tia Kareem Fri 10/30/2009 5:59pm IN
Tia Kareem Sat 10/31/2009 3:27am OUT

IF i will use the same expression i will be getting total working
hours per day : -14.53
Employee Name Date IN
OUT Total Working Hours
Tia Kareem 10/30/2009 5:59pm
3:27am -14.53
Jason 10/30/2009 9:00 am
18:00pm 9

How can i get the total of 09:47 per day if they worked from 30 till
31 in one shift?

Best Regards

 

[Douglas J. Steele]

The problem is that you're strictly using Time In and Time Out. You really
should have Date/Time In and Date/Time Out.

For the meantime, take a look at
http://www.mvps.org/access/datetime/date0008.htm at "The Access Web"

 

[Joe]

Try This:

Dim sngTotal As Single
Dim sngDailySum As Single

sngTotal = DateDiff("n", [txtIn], [txtOut]) / 60 'Calculate the minutes
and divide by 60

If Sgn(sngTotal) = -1 Then 'If the number is negative
txtOut = DateAdd("d", 1, txtOut) 'add one day
sngTotal = DateDiff("n", [txtIn], [txtOut]) / 60
End If

HTH