Dim TimeDiff As Long= 1461
TimeDiff=1461*1000 'in milliseconds
Dim Hours, Minutes, Seconds As Int
Hours = Floor(TimeDiff / DateTime.TicksPerHour)
TimeDiff = (TimeDiff Mod DateTime.TicksPerHour)
Minutes = Floor(TimeDiff / DateTime.TicksPerMinute)
TimeDiff = (TimeDiff Mod DateTime.TicksPerMinute)
Seconds = Floor(TimeDiff / DateTime.TicksPerSecond)
Msgbox( Hours & " hrs " & Minutes & " mn " & Seconds & " sec" ,"") 'displays: 0 hrs 24 mn 21 sec
Msgbox(Floor(125.6776645),"") 'displays 125