Array
(
)

Diferença de segundos

Foxcyber
   - 05 dez 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


Sabado
   - 05 dez 2005

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;


Foxcyber
   - 05 dez 2005

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.


Foxcyber
   - 05 dez 2005

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


Sabado
   - 05 dez 2005

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