Erro com data

Question

Tenho esse c�digo,[code:1:85327ca96c]Label18.Caption := DateTimeToStr(Time);[/code:1:85327ca96c]Mas qndo executo meu sistema ele traz uma data absurda [quote:85327ca96c]31/12/1899 21:07:55[/quote:8532...

Vinicius2k · Answer

Colega,30/12/1899 � quando se inicia a contagem de data e hora para fun��es como Time, Date e Now. Lembre-se de que uma data (tipos Date, DateTime, TimeStamp, etc), n�o � bem uma data... � um valor de alta precis�o cont�ndo um inteiro e fra��o que representa o tempo (em dias) transcorrido de 30/12/1899 00:00:00,0000 at� data e/ ou hora q vc solicitou...Ilustra��o simples: [code:1:b45fdad91b]ShowMessage(FloatToStr(Now));[/code:1:b45fdad91b]Como vc est� convertendo para [b:b45fdad91b]Data e Hora[/b:b45fdad91b] uma constante que [b:b45fdad91b]s� cont�m a hora[/b:b45fdad91b] (Time), logo a data � 0, por isso 30/12/1899. Se vc usar a fun��o de convers�o correta, ter� o resultado que deseja...Exemplos: [b:b45fdad91b]DateToStr(Date)[/b:b45fdad91b] resulta em 14/09/2004[b:b45fdad91b]TimeToStr(Time)[/b:b45fdad91b] resulta em 21:43:00[b:b45fdad91b]DateTimeToStr(Date)[/b:b45fdad91b] resulta em 14/09/2004 00:00:00[b:b45fdad91b]DateTimeToStr(Now)[/b:b45fdad91b] resulta em 14/09/2004 21:43:00Espero ter ajudado...T+...