01:00:00
- Код: Выделить всё
Format(Int(cont) \ 3600, "00") & ":" & Format(Int(cont) \ 60, "00") & ":" & Format(cont Mod 60, "00")
Вот этот код выдает 01:60:00
Format(Int(cont) \ 3600, "00") & ":" & Format(Int(cont) \ 60, "00") & ":" & Format(cont Mod 60, "00")
Debug.Print Format$(cont \ 3600, "00") & _
":" & Format$((cont \ 60) Mod 60, "00") & ":" & _
Format$(cont Mod 60, "00")
Debug.Print CDate(3600/86400)
tyomitch писал(а):Ещё проще:
- Код: Выделить всё
Debug.Print CDate(3600/86400)
Работает для интервалов меньше суток.
Сейчас этот форум просматривают: Yandex-бот и гости: 183