[Anatol_rus]

Вопрос может показаться некоторым простым,есть какое-то кол-во секунд например - 1395,как перевести их в формат чч:мм:сс,есть ли стандартная дельфи-функция для этого, так как простое деление и т.п. я и сам знаю
Есть такая сис функция но она не особо подходит
EncodeTime(0, 0, S, 0), s <= 59,если больше выдает ошибку
А нужно чтоб сразу подставляя секунды он выдавал в формате чч:мм:сс,есть ли альтернатива EncodeTime?

[Boris the Blade]

Код:

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;