| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
сек перевести в мин и часы
ec © (2002-05-08 14:47:00)Кто - нить знает есть стандартная (или нет) процедура переводящая секунды в нормальное время. т.е 2000 сек нужно перести в час.мин.сек.
Anatoly Podgoretsky (2002-05-08 20:19:00) [1]TimeToStr(sec / 86400)
Johnmen (2002-05-08 15:24:00) [2]>Alx2 © : А и не надо ! Главное идея (красивей и быстрее) !
Alx2 (2002-05-08 15:20:00) [3]А я пока не проверял :)
Johnmen (2002-05-08 15:09:00) [4]>Alx2 © (08.05.02 14:59) : Да, так красивее, а значит правильнее !
Alx2 (2002-05-08 14:59:00) [5]Или так:
секунды = 2000 mod 60
Минуты = (2000 div 60) mod 60
Часы = 2000 div (60*60)
Johnmen (2002-05-08 14:55:00) [6]Совершенно стандартно :
часы=Trunc(2000/60/60)
минуты=Trunc((2000-часы*60*60)/60)
секунды=2000-часы*60*60-минуты*60
| |
