seconds to hours:mins

[TheEnigma]

Hi there,
Can anyone help me please? I want to turn a field in my query from seconds into hours:minutes.

So another words 8019 would now be 2:13

 

[scriverb]

this code will give you a string representation of hours and minutes.

Dim vSeconds as long
Dim vElapsedTime as string
vSeconds = 8019
vElapsedTime = CLng((vSeconds / 3600) - 0.5) & ":" & CInt(((vSeconds - (CLng((vSeconds / 3600) - 0.5) * 3600)) / 60) - 0.5)

Bob Scriver

Nobody believes the official spokesman... but everybody trusts an unidentified source.
Author, Bagdad Bob???

 

[TheEnigma]

Thanks Bob! You are very helpful as always!

 

[scriverb]

Great. I know this is VBA code but I figured you could figure to use it in your query okay.

Bob Scriver

Nobody believes the official spokesman... but everybody trusts an unidentified source.
Author, Bagdad Bob???

 

[TheEnigma]

Yeah all I had to do was enter this in (I replaced vSeconds with the field name of TotalCallTime):

TotalCallTime: CLng(([TotalTime]/3600)-0.5) & ":" & CInt((([TotalTime]-(CLng(([TotalTime]/3600)-0.5)*3600))/60)-0.5)

And it works like a charm!