Calculate Driving time

[FogLine]

Can anyone help me out with this??




I need to calculate Driving time:
I need to Divide Total Miles by Speed and get the Total Hours and Minutes it will take to drive.


I was trying this but not working: =[TravelTime]\60 & Format([TravelTime] Mod 60,"\.00")


Like this: 1655 / 55 = 30:45 Hours


What I would really like is: 1655 / 55 = 30 Hours 45 Minutes


Thanks for any help..

[aytee111]

See here: http://allenbrowne.com/casu-13.html

[isladogs]

Sorry to disillusion you but the answer is 30.091 hours or 30 hours 5 minutes!

Function DrivingTime()

Dim TravelTime As Double
Dim TotalMiles As Double, Speed As Double

'example values as supplied
TotalMiles = 1655
Speed = 55

'TravelTime = TotalMiles / Speed
'Debug.Print TravelTime


DrivingTime = CInt(TotalMiles / Speed) & " hours " & CInt(60 * (TotalMiles Mod Speed) / Speed) & " minutes"
Debug.Print DrivingTime
    
End Function

[davegri]

I believe your example is wrong. It should be 30 hrs 5 minutes.
See attached DB for calculations:TimeElapsed-v2.zip

[FogLine]

Thank you Ridders52
That works Great.
Thank you so much.

[isladogs]

You're welcome.
I spent several minutes trying to work out how on earth you got 30 Hours 45 Minutes!

If you want a more generic solution, something like this could be used

Function DrivingTime(TotalMiles As Double, Speed As Double) As String

DrivingTime = CInt(TotalMiles / Speed) & " hours " & CInt(60 * (TotalMiles Mod Speed) / Speed) & " minutes"
'Debug.Print DrivingTime

End Function

Example usage: DrivingTime (1655, 55)

NOTE: I haven't looked at davegri's solution and he may well have done something very similar

[FogLine]

I was just using 30 Hours 45 Minutes as an example
that I wanted to show Hours and Minutes..