Calculate working hours:mins 1

[cumap]

Hello,

I'm creating a timeclock and need to calculate total working time in the end of the days. This is what I came up

fhours = DATEDIFF("h",rs("clockIn"),rs("lunchOut"))
fmins = Right("0" & (DATEDIFF("n",rs("clockIn"),rs("lunchOut")) - DATEDIFF("h",rs("clockIn"),rs("lunchOut"))*60),2)
shours = DATEDIFF("h",rs("lunchIn"),rs("clockOut"))
smins = Right("0" & (DATEDIFF("n",rs("lunchIn"),rs("clockOut")) - DATEDIFF("h",rs("lunchIn"),rs("clockOut"))*60),2)
thours = cint(fhours) + cint(shours)
tmins = cint(fmins) + cint(smins)
if tmins > 60 then
  thour = tmins/60
  tmins = tmins - (thour*60)
  thours = thours + thour
end if
finalresult = thours&":"&Right("0" & (tmins),2)

Is there a better and shorter way to result this?

Thanks!

 

[johnwm]

You could do both the DateDiff statements in minutes, add the minutes and only convert to hours when you want to display the answer.

fmins = DATEDIFF("n",rs("clockIn"),rs("lunchOut"))
smins = DATEDIFF("h",rs("lunchIn"),rs("clockOut"))
tmins = cint(fmins) + cint(smins)
finalresult= (tmins \ 60 & ":" & Right("00" & Cstr(tmins mod 60 ),2))

___________________________________________________________
If you want the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller
Steam Engine Prints

 

[cumap]

Perfect... why didn't think of that instead of complicating thing up? Go figure!!!
Thanks johnwm!!!