Transformar integer em time

24/08/2004

0

Como transformar um integer em time, alguem sabe ?


Jc_analista

Jc_analista

Responder

Posts

24/08/2004

Nildo

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


Responder

24/08/2004

Jc_analista

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.


Responder

24/08/2004

Jc_analista

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.


Responder

24/08/2004

Nildo

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


Responder

24/08/2004

Jc_analista

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.


Responder

24/08/2004

Nildo

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.


Responder

24/08/2004

Rômulo Barros

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

é isso?


Responder

24/08/2004

Nildo

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.


Responder

24/08/2004

Jc_analista

é, representa os segundos


Responder

24/08/2004

Rômulo Barros

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar