Разложить секунды на чч:мм:cc

[Anatol_rus]

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

[Vol666]

Я слаб в математике, но мне кажется просто необходимо делить на 60(получим мин) потом пол ученое ещё на 60 (час), кажется так, остальное через условия и except...

[TwiX]

function sec2dat(s:integer):string;
begin
result:=inttostr(s div 3600)+':'+inttostr(s div 60 mod 60)+':'+inttostr(s mod 60);
end;