How to convert decimal time from Date/Time calculation
StartTime and EndTime are Date/Time types
Dim ElpsdTime, EintMin, EintSec, EintTSec, As Double
Dim EintHr As Single
Dim intHr, intMin As Integer
ElpsdTime = CDbl(![EndTime] - ![StartTime])
intHr = Hour(ElpsdTime) 'Rounded Hours...