tipo de dado (Time)

Delphi

10/05/2007

Gostaria de saber como faço para converter o tipo de dado(Time) para o tipo de dado (Integer) no delphi ou no firebird.

Obrigado!!!


Joelson_rocha

Joelson_rocha

Curtidas 0

Respostas

Ruyoutor

Ruyoutor

10/05/2007

Acho q essa função resolve seu problema

procedure DecodeTime(
    const ADateTime: TDateTime,   //A hora a ser capturada
    var Hour: Word,                       //variável q vai receber a hora
    var Min: Word,                         //variável q vai receber a Minuto
    var Sec: Word,                        //variável q vai receber a Segundo
    var MSec: Word                      //variável q vai receber os milesimos de segundo
);


Essas variaveis tem q ser do tipo word como está ai, mas ela pode ser atribuida a uma variavel integer se for necessário


GOSTEI 0
Marco Salles

Marco Salles

10/05/2007

veja joelson_rocha é mais simples do que se pode imaginar

Segue um exemplo de precisão da ordem do Segundo

var
Corresponde:integer;
dado:TTime;
begin
Dado:=Time; //recebe a hora atual .. so para teste;
Showmessage(´Hora Atual : ´+timetostr(dado));
Corresponde:=trunc(dado*24*3600);  //coração desse processo
Showmessage(´Inteiro Correspondente : ´+inttostr(Corresponde));
//reveter o processo...
Dado:=Corresponde/(24*3600);
Showmessage(´Hora Convertida é a mesma : ´+timetostr(dado));



GOSTEI 0
POSTAR