сек перевести в мин и часы

← →
ec (2002-05-08 14:47) [0]

Кто - нить знает есть стандартная (или нет) процедура переводящая секунды в нормальное время. т.е 2000 сек нужно перести в час.мин.сек.

← →
Johnmen (2002-05-08 14:55) [1]

Совершенно стандартно :
часы=Trunc(2000/60/60)
минуты=Trunc((2000-часы*60*60)/60)
секунды=2000-часы*60*60-минуты*60

← →
Alx2 (2002-05-08 14:59) [2]

Или так:
секунды = 2000 mod 60
Минуты = (2000 div 60) mod 60
Часы = 2000 div (60*60)

← →
Johnmen (2002-05-08 15:09) [3]

>Alx2 © (08.05.02 14:59) : Да, так красивее, а значит правильнее !

← →
Alx2 (2002-05-08 15:20) [4]

А я пока не проверял :)

← →
Johnmen (2002-05-08 15:24) [5]

← →
Anatoly Podgoretsky (2002-05-08 20:19) [6]

TimeToStr(sec / 86400)