Transformar integer em time

Question

Como transformar um integer em time, alguem sabe ?...

Nildo · Answer

Como assim? Em que formato est� esse Integer? Pode dar mais explica��es, por favor?...

Jc_analista · Answer

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.

Jc_analista · Answer

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.

Nildo · Answer

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

Jc_analista · Answer

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

Nildo · Answer

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

R�mulo Barros · Answer

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

Nildo · Answer

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

Jc_analista · Answer

�, representa os segundos...

R�mulo Barros · Answer

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