Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

сек перевести в мин и часы   Найти похожие ветки 

← →
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]

>Alx2 © : А и не надо ! Главное идея (красивей и быстрее) !

---

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

TimeToStr(sec / 86400)

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c