Existe DateToInt?

Delphi

16/10/2004

Olá,

Existe alguma função que converte Data (TDateTime) para Numero (Integer ou Real)?

Valeu.


Sonec2004

Sonec2004

Curtidas 0

Melhor post

Aroldo Zanela

Aroldo Zanela

16/10/2004

a melhor forma de fazer isso é truncar a data: var i:integer; data:tdate; begin data:=now; i:=trunc(data); end;

Colegas,

É verdade, o tipo data são do tipo real onde a parte inteira armazena a data e a parte fracionária armazena o horário, portanto basta:

var DataInteira: Integer;
begin
  DataInteira := Trunc(Date);
end;



GOSTEI 1

Mais Respostas

Christian_adriano

Christian_adriano

16/10/2004

Olá,

Para transformar para um número inteiro vc pode tentar o seguinte :

varInteger := StrToInt(FormarDateTime(ddmmyyyy),ValorData));

Onde:
varInteger : é uma variavel qualquer do tipo inteira.
ValorData : é uma como o proprio nome já diz, uma Data.


flw..

Espero ter ajudado.

[]´s.

Christian.


GOSTEI 0
Fórum Vini

Fórum Vini

16/10/2004

Olá,
se você quiser os dados formatados como ddmmaaaa numa variável inteira, pode usar a dica do christian_adriano... Mas se a idéia for somente converter para guardar em algum arquivo ou algo parecido, o tipo TDate não passa de um Double e informa na verdade o número de dias passados de uma certa data..(se não me engano é 30/12/1889)...
Então basta converter o Double para Integer usando a função Int():
dataInteger:= Int(dataNormal);


Espero ter ajudado,
Vinicius;


GOSTEI 0
Kenshindigital

Kenshindigital

16/10/2004

a melhor forma de fazer isso é truncar a data:

var
i:integer;
data:tdate;
begin
data:=now;
i:=trunc(data);
end;


GOSTEI 0
Sonec2004

Sonec2004

16/10/2004

:D Valeu pelas dicas.
É bem simples, mas tenho muito que aprender ainda.
t+


GOSTEI 0
POSTAR