Convertir un Float a Date

[noob]

Hola, tengo este código que me convierte una fecha a Float:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Date: string;
begin
  Date := FloatToStr(StrToDate('27/1/2009'));
  ShowMessage(Date);
end;

Por pantalla sale 39840 ahora lo que yo quiero es realizar el proceso inverso, es decir, obtener la fecha 27/1/2009 a partir del número 39840.

¿Es posible?

Saludos y muchas gracias.

[Neftali [Germán.Estévez]]

Empezado por noob

Por pantalla sale 39840 ahora lo que yo quiero es realizar el proceso inverso, es decir, obtener la fecha 27/1/2009 a partir del número 39840.
¿Es posible?

Es posible y además no puede ser más sencillo, ya que lo puedes asignar directamente.

Código Delphi [-]
 
  VarDate := varFloat;

Así que puede hacer algo como esto:

Código Delphi [-]
 
var
  date:TDate;
begin
  Date := StrToFloat(Edit1.Text);
  ShowMessage(FormatDateTime('dd-mm-yyyy',Date));

[noob]

Muchas gracias.

[MiKloSS]

El Delphi 7 tiene esta funcion, puedes chekarla a ver si te funciona... salu2

FloatToDateTime()