Kostante vom Typ TDate anlegen

[moelski]

Moin !

Kann mir jemand sagen wie ich eine Kostante vom Typ TDate anlegen?
Ich möchte ein Datum in meinem Quellcode angeben. Dieses soll aber nicht als String angegeben sein.

Geht das mitunter mit typisierten Konstanten ?

[mkinzler]

TDate speichert die Tage seit 31.12.1899

[moelski]

Moin !

Ah ok.
So gehts: LV_Datum : TDate = 1234;

Muss ich nun nur die Tage berechnen ...

Danke !

[alzaimar]

Wieso nicht:

Delphi-Quellcode:

Const
  LV_DatumStr = '31.12.2007';
...
  myDate := StrToDate (LV_DatumStr)
...

[moelski]

Moin !

Weil ich nicht möchte das man das Datum sofort als selbiges erkennt.
Es geht immer noch um meinen einfachen Zeitbomben Schutz.

Und ein String ... Nun den kann man sogar mit einem Notepad fast in der Exe ändern ...

[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;