| |
Формирование из числа его "строковое" представление |
|
| |
Многим из вас приходилось формировать из числа, содержащего количество секунд, строку, показывающую количество часов, минут и секунд. Для этого можно воспользоваться готовым примером.
Private Sub Command1_Click()
'Передаем функции 260 минут, получаем: 4 часа 20
минут
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
|
|
| |
|
|
|
|