quarta-feira, 4 de novembro de 2009

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

{No decorrer da programação voce pode precisar de converter segundos em horas ou converter minutos em hora, com esta função da para voce converter o que voce precisa.}

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;

Nenhum comentário:

Postar um comentário