Convert seconds to hours and minitues and seconds format

Home » Date & Time » Convert seconds to hours and minitues and seconds format

Convert seconds to hours and minitues and seconds format

Posted on January 4, 2009

'Date & Time - Convert seconds to hours and minitues and seconds format
Public Function ConvertSeconds(ByVal lSec As Long) As String
    ConvertSeconds = Format$(lSec \ 3600, "00") & ":" & _
                     Format$((lSec Mod 3600) \ 60, "00") & ":" & _
                     Format$(lSec Mod 60, "00")
End Function