Diferença de segundos

05/12/2005

Alguém sabe se no Delphi ja existe alguma função que quando eu passo os segundos para ela me retorna um string formatado falando qtas hora e minutos são aqueles segundos.
Por Exemplo:
65 segundos
Ela me retorna :
01:05


Foxcyber

Respostas

05/12/2005

Sabado

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;


Responder Citar

05/12/2005

Foxcyber

Esta função não funciona pro meu caso, pois ela retorna assim :
0:1:5
E este formato não é o formato que quero que me retorne. Ja tinha testado ela antes.


Responder Citar

05/12/2005

Foxcyber

Achei a solução :
Result := Format(´¬2.2d:¬2.2d:¬2.2d´, [Hrs, Min, Secs]);


Responder Citar

05/12/2005

Sabado

Para trabalhar com horas, precisa converte-las ou trabsforma-las em hora centesimal, como uma concessionária, por exemplo


Responder Citar