Transformar integer em time

Delphi

24/08/2004

Como transformar um integer em time, alguem sabe ?


Jc_analista

Jc_analista

Curtidas 0

Respostas

Nildo

Nildo

24/08/2004

Como assim? Em que formato está esse Integer? Pode dar mais explicações, por favor?


GOSTEI 0
Jc_analista

Jc_analista

24/08/2004

Eu tenho uma integer que e incrementada através de um timer ela pode chegar com um caracter, dois, tres, até 9 mas se eu souber como que transforma, eu faço uma rotina que testa o tamanho do integer e transforma para time (hh:mm:ss).
Espero que tenha entendido.


GOSTEI 0
Jc_analista

Jc_analista

24/08/2004

Eu tenho uma integer que e incrementada através de um timer ela pode chegar com um caracter, dois, tres, até 9 mas se eu souber como que transforma, eu faço uma rotina que testa o tamanho do integer e transforma para time (hh:mm:ss).
Espero que tenha entendido.


GOSTEI 0
Nildo

Nildo

24/08/2004

Voce tem um Integer (121020) e quer transformar em (12:10:20)?


GOSTEI 0
Jc_analista

Jc_analista

24/08/2004

Não as vezes o integer pode ser 1 ou 6909 ou 300 e variavel. Por exemplo se for 30 quer dizer que é 30 segundos a formatacao ficaria assim 00:00:30.


GOSTEI 0
Nildo

Nildo

24/08/2004

A variavel do tipo TTime é um TDateTime que por sua vez é um Double. Creio que se você substituir este Integer por Double pode-se usar normalmente como sendo um TTime.


GOSTEI 0
Rômulo Barros

Rômulo Barros

24/08/2004

Entaum quer dizer que esse seu interger é representa apenas os segundo?
Ex: 300 é igual a: 00:05:00

é isso?


GOSTEI 0
Nildo

Nildo

24/08/2004

A variavel do tipo TTime é um TDateTime que por sua vez é um Double. Creio que se você substituir este Integer por Double pode-se usar normalmente como sendo um TTime.


GOSTEI 0
Jc_analista

Jc_analista

24/08/2004

é, representa os segundos


GOSTEI 0
Rômulo Barros

Rômulo Barros

24/08/2004

:arrow: Obs: [color=red:f05959f49e]O código abaixo não foi testado.[/color:f05959f49e]

...
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:


GOSTEI 0
POSTAR