Transformar integer em time
24/08/2004
0
Jc_analista
Posts
24/08/2004
Nildo
24/08/2004
Jc_analista
Espero que tenha entendido.
24/08/2004
Jc_analista
Espero que tenha entendido.
24/08/2004
Nildo
24/08/2004
Jc_analista
24/08/2004
Nildo
24/08/2004
Rômulo Barros
Ex: 300 é igual a: 00:05:00
é isso?
24/08/2004
Nildo
24/08/2004
Rômulo Barros
... Var intSegundos : Integer; wdHoras, wdMinutos, wdSegundos : Word; begin wdHoras := 0; wdMinutos := 0; wdSegundos := 0; intSegundos := 3600; // Informe aqui o número de segundos While intSegundos >= 3600 Do // Capturando as horas Begin wdHoras := wdHoras + 1; intSegundos := intSegundos - 3600; End; While(intSegundos >= 60)Do // Capturando os Minutos Begin wdMinutos := wdMinutos + 1; intSegundos := intSegundos - 60; End; wdSegundos := intSegundos; // Capturando os Segundos ShowMessage(FormatDateTime(´hh:mm:ss´,StrToTime(IntToStr(wdHoras) + ´:´ + IntToStr(wdMinutos) + ´:´ + IntToStr(wdSegundos))));
:wink: :wink: :wink: :wink: :wink: :wink: :wink:
Clique aqui para fazer login e interagir na Comunidade :)