Главная страницаОбратная связьКарта сайта

Преобразование секунд в минуты, часы



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 - "Преобразование секунд в минуты, часы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info