Преобразование даты

[Дворник]

Сообщение от ZuBy

...................

чего не так ?

[Дворник]

Я извеняюсь ) косяк )
Вот

[W0LF]

Попробуй это использовать...

function SecToTime(Sec : Integer) : String;
var
  H,  M,  S,  D  : Integer;
  HS, MS, SS{, DS} : String;
begin
  S := Sec;
  M := Round(INT(S / 60));
  S := S - M * 60;
  H := Round(INT(M / 60));
  M := M - H * 60;
  D := Round(INT(H / 24));
  H := H - D * 24;
  //DS := IntToStr(D);
  if H < 10 then
    HS := '0' + IntToStr(H)
  else
    HS := IntToStr(H);
    if M < 10 then
    MS := '0' + IntToStr(M)
  else
    MS := IntToStr(M);
    if S < 10 then
    SS := '0' + IntToStr(S)
  else
    SS := IntToStr(S);
  Result := {DS+':'+}HS+':'+MS+':'+SS;
end;

-ДОБАВЛЕНО-
В общем, если я правильно понял и зделал (проект в аттаче), то заберайте, проверяйте, если что-то не так - пишите, поправим.

[Дворник]

WOLF спасибо ) то что надо ))
с тебя 100$ =)

[W0LF]

Сообщение от Дворник

WOLF спасибо ) то что надо ))
с тебя 100$ =)

С меня? о_О Если ты хотел написать "С меня 100$", то луче вместо зеленых - плюс поставь))