Diferença de segundos
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
Por Exemplo:
65 segundos
Ela me retorna :
01:05
Foxcyber
Curtidas 0
Respostas
Sabado
05/12/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;
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;
GOSTEI 0
Foxcyber
05/12/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.
0:1:5
E este formato não é o formato que quero que me retorne. Ja tinha testado ela antes.
GOSTEI 0
Foxcyber
05/12/2005
Achei a solução :
Result := Format(´¬2.2d:¬2.2d:¬2.2d´, [Hrs, Min, Secs]);
Result := Format(´¬2.2d:¬2.2d:¬2.2d´, [Hrs, Min, Secs]);
GOSTEI 0
Sabado
05/12/2005
Para trabalhar com horas, precisa converte-las ou trabsforma-las em hora centesimal, como uma concessionária, por exemplo
GOSTEI 0