Time Function

[Jeff Barnes]

Hi Everybody,

Is there a function to convert seconds to a time format like HH:MM:SS ?

Exanple:

nSeconds = 3600

something like SecondsToTime( nSeconds ) would return "01:00:00"


Thanks,
Jeff

[Enrico Maria Giordano]

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL nSec := SECONDS()

    ? nSec, SECONDSTOTIME( nSec )

    INKEY( 0 )

    RETURN NIL


STATIC FUNCTION SECONDSTOTIME( nSec )

    LOCAL nHour, nMin

    nHour = INT( nSec / 3600 )

    nSec -= nHour * 3600

    nMin = INT( nSec / 60 )

    nSec -= nMin * 60

    RETURN STRZERO( nHour, 2 ) + ":" + STRZERO( nMin, 2 ) + ":" + STRZERO( nSec, 2 )

EMG

[Jeff Barnes]

Exactly what I needed

Thanks Enrico.


Jeff