Passo Segundos e me retorna minutos e horas, como faço isso?

Delphi

19/02/2005

Olá pessoal, preciso de uma função que eu passo os segundos e ela me retorna as horas e minutos destes segundos... como faço isso?

desde ja agradesco.

[]s


Titanius

Titanius

Curtidas 0

Respostas

Edilcimar

Edilcimar

19/02/2005

minuto = segundos dividido por 60
hora = segundo dividido por 3600


GOSTEI 0
Guinther

Guinther

19/02/2005

Dê uma olhada na unit DateUtils (disponível a partir do Delphi 6), tem muitas rotinas prontas para tratamento de datas/horas


GOSTEI 0
Marcio.theis

Marcio.theis

19/02/2005

Tente a seguinte função:

function FormataSegundosToHMS(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;



GOSTEI 0
Titanius

Titanius

19/02/2005

Opa, valeu... certim... :D


[]s


GOSTEI 0
POSTAR