Private Sub Command1_Click() 'Передаем функции 260 секунд MsgBox FormatTime(260) End Sub
'Формирует строку с указанием количества минут(часов, секунд) Public Function FormatTime(lTime As Long) As String Dim lSec As Long Dim lMin As Long Dim lHour As Long Dim lTemp As Long Dim i As Long
If lTime < 60 Then FormatTime = lTime & " сек" ElseIf lTime / 60 < 60 Then lTemp = lTime Do While lTemp > 60 i = i + 1 lTemp = lTemp - 60 Loop lMin = i lSec = lTime - (lMin * 60) FormatTime = lMin & " мин " & lSec & " сек" Else lTemp = lTime Do While lTemp > 60 * 60 i = i + 1 lTemp = lTemp - 60 * 60 Loop lHour = i i = 0 lTemp = lTime - (lHour * 60 * 60) Do While lTemp > 60 i = i + 1 lTemp = lTemp - 60 Loop lMin = i lSec = lTime - (lHour * 60 * 60) - (lMin * 60) FormatTime = lHour & " час " & lMin & " мин " & lSec & " сек" End If End Function
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Преобразование секунд в минуты, часы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!