|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Разложить сикунды на чч:мм:cc
Вопрос может показаться некоторым простым,есть какое-то кол-во секунд например - 1395,как перевести их в формат чч:мм:сс,есть ли стандартная дельфи-функция для этого, так как простое деление и т.п. я и сам знаю
Есть такая сис функция но она не особо подходит EncodeTime(0, 0, S, 0), s <= 59,если больше выдает ошибку А нужно чтоб сразу подставляя секунды он выдавал в формате чч:мм:сс,есть ли альтернатива EncodeTime? |
#2
|
|||
|
|||
Код:
var h, m, s : integer; begin h := s div 3600; s := s - h * 3600; m := s div 60; s := s - m * 60; EncodeTime(h, m, s, 0); end; Последний раз редактировалось Boris the Blade, 03.10.2009 в 13:44. |