Как работать с временем?

[ZuBy]

Работаю с bass.dll, получаем длину трека!

function SecToStr(const Sec: Integer): PAnsiChar; stdcall;
var
  H, M, S: Integer;
begin
  H := Sec div 3600;
  S := Sec mod 3600;
  M := S div 60;
  S := (S mod 60);
  if H <> 0 then
    Result := PAnsiChar(Format('%2.2d:%2.2d:%2.2d', [H, M, S]))
  else
    Result := PAnsiChar(Format('%2.2d:%2.2d', [M, S]));
end;

Пример:
продолжительность трека = 80 минутам, что равняется 01:20:00, а как сделать так чтобы вывод был 80:00. т.е. часы показывать в минутах.

[Alex Cones]

Колдуйте с этим:

  H := Sec div 3600;
  S := Sec mod 3600;
  M := S div 60;
  S := (S mod 60);

[ZuBy]

Alex Cones я знаю что с этим нужно колдовать, я уже пробовал и всё время выдаёт нереальные цифры.
я делил H на 60 полученное прибавлял к M и результат выводил.
где ошибка, почему неправильно?

[Alex Cones]

После

M := S div 60;

Напиши M:=M+H*60;

[ZuBy]

вообще что то странное выдал, 00:0₣ последнии символ неотображается.

[ZuBy]

Вот пример можно поэкспериментировать.

[Alex Cones]

Вот эту белиберду:

Result := PAnsiChar(Format('%2.2d:%2.2d:%2.2d ', [H, M, S]))
else
Result := PAnsiChar(Format('%2.2d:%2.2d', [M, S]));

Замени на

If M<10 Then SM:='0'+IntToStr(M) Else SM:=IntToStr(M);
If S<10 Then SS:='0'+IntToStr(S) Else SS:=IntToStr(S);
Result := PAnsiChar(SM+':'+SS);

P.S. H В таком случае убери.

[ZuBy]

Alex Cones сорри что раньше не ответил.
твой первый пост

M:=M+H*60;

решил мою задачу.

P.S. просто я чуть ошибся у себя в коде.
Спасибо огромное!