Сообщество Чайников

Вопрос

Подскажите, пожалуйста, как сделать так, чтобы время, данное в секундах отображалось, например в TextBox в виде HH:MM:SS.
Например, чтобы 48328 секунд выглядели бы как 13:25:28 …

Ответ

Примерно такая функция получится:
Код:

Function FormatSeconds(ByVal AllSeconds As Long) As String
Dim iH As Long
Dim iMin As Long, iSec As Long
iH = AllSeconds \ 3600
iMin = (AllSeconds Mod 3600) \ 60
iSec = (AllSeconds Mod 3600) Mod 60
FormatSeconds = CStr(iH) & ":" & CStr(iMin) & ":" & CStr(iSec)
End Function

Вызов:
MsgBox FormatSeconds(48328)

Из конференции Expert_FAQ