terça-feira, 24 de novembro de 2009

Converte um certo número de segundos em horas já formatado.

Function FormatSecsToHMS(Secs: LongInt): string;
var
Hrs, Min: Word;
begin
Hrs := Secs div 3600;
Secs := Secs mod 3600;
Min := Secs div 60;
Secs := Secs mod 60;
Result := Format('%d:%d:%d', [Hrs, Min, Secs]);
end;





p.1091

Nenhum comentário:

Postar um comentário