Array
(
)

Erro com data

Facc
   - 14 set 2004

Tenho esse código,
#Código

Label18.Caption := DateTimeToStr(Time);

Mas qndo executo meu sistema ele traz uma data absurda
Citação:
31/12/1899 21:07:55


O que poderia ser isso?


Vinicius2k
   - 14 set 2004

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:
#Código

ShowMessage(FloatToStr(Now));

Como vc está convertendo para Data e Hora uma constante que só contém a hora (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:
DateToStr(Date) resulta em 14/09/2004
TimeToStr(Time) resulta em 21:43:00
DateTimeToStr(Date) resulta em 14/09/2004 00:00:00
DateTimeToStr(Now) resulta em 14/09/2004 21:43:00

Espero ter ajudado...
T+