Time: formatting from seconds to serial

comets · July 21st, 2003, 02:05 PM

I need to take a time value expressed in seconds and convert it to a time value expressed in a serial fashion (xx:xx:xx). Is there an easy way to do this?

thanks,

Sarah

pgtips · July 22nd, 2003, 03:49 AM

A simple recursive function like this will work for anything up to 219599 seconds (thats 60 hours, 59 minutes, 59 seconds), though you will have to add some formatting to get leading zeros:

Code:

Public Function SecsToSerial(x)

    If x > 60 Then
        SecsToSerial = SecsToSerial(x \ 60) & ":" & x Mod 60
    Else
        SecsToSerial = x
    End If

End Function

rodmcleay · July 22nd, 2003, 04:00 AM

'Function takes a number of seconds and returns
'in format hours:Mins:Secs
function TimeAsHMS(secondsIn)

    'Calc hours
    hours = (secondsIn - secondsIn mod 3600)/3600
    secondsIn = secondsIn - (hours * 3600)
    'Calc Mins
    mins = (secondsIn - secondsIn mod 60)/60
    secondsIn = secondsIn - (mins * 60)
    'Secs left
    secs = secondsIn

    'Format
    TimeAsHMS = hours & ":" & mins & ":" & secs

end function

======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================