Kostante vom Typ TDate anlegen

[alzaimar]

Aha. Dann verschlüssel ihn:

Delphi-Quellcode:

Const
  LV_DatumStr = '22QWgdl!!?..';

...
  LV_Datum := StrToDate(Decrypt (LV_DatumStr));

Oder lass Dir den Wert (z.B. 39146) von Delphi anzeigen

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender);
Begin
  ShowMessage(IntToStr (Trunc (0.5 + StrToDate(Edit1.Text))));
End;