Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function ToTime(secs As Long) As String
- Dim hrs As Integer
- Dim mins As Integer
- Do While secs > 59
- secs = secs - 60
- mins = mins + 1
- If mins > 59 Then
- mins = 0
- hrs = hrs + 1
- End If
- Loop
- ToTime = Format(hrs, "00") & ":" & Format(mins, "00") & ":" & Format(secs, "00")
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement