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:

markieren

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:

markieren

Delphi-Quellcode:

			Const

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

...

  LV_Datum := StrToDate(Decrypt (LV_DatumStr));

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

markieren

Delphi-Quellcode:

			Procedure TForm1.Button1Click(Sender);

Begin

  ShowMessage(IntToStr (Trunc (0.5 + StrToDate(Edit1.Text))));

End;

Kostante vom Typ TDate anlegen

Kostante vom Typ TDate anlegen

Re: Kostante vom Typ TDate anlegen

Re: Kostante vom Typ TDate anlegen

Re: Kostante vom Typ TDate anlegen

Re: Kostante vom Typ TDate anlegen

Re: Kostante vom Typ TDate anlegen

Forumregeln

moelski Registriert seit: 31. Jul 2004 1.110 Beiträge Delphi 2010 Professional	#1 Kostante vom Typ TDate anlegen 21. Okt 2007, 15:01 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 ? Dominik Schmidt Greetz Dominik I love Delphi 2007/2010
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Kostante vom Typ TDate anlegen 21. Okt 2007, 15:02 TDate speichert die Tage seit 31.12.1899 Markus Kinzler
	Zitat

moelski Registriert seit: 31. Jul 2004 1.110 Beiträge Delphi 2010 Professional	#3 Re: Kostante vom Typ TDate anlegen 21. Okt 2007, 15:05 Moin ! Ah ok. So gehts: LV_Datum : TDate = 1234; Muss ich nun nur die Tage berechnen ... Danke ! Dominik Schmidt Greetz Dominik I love Delphi 2007/2010
	Zitat

alzaimar (Moderator) Registriert seit: 6. Mai 2005 Ort: Berlin 4.956 Beiträge Delphi 2007 Enterprise	#4 Re: Kostante vom Typ TDate anlegen 21. Okt 2007, 15:20 Wieso nicht: markieren Delphi-Quellcode: Const LV_DatumStr = '31.12.2007'; ... myDate := StrToDate (LV_DatumStr) ... "Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!" (Monty Python "Joke Warefare")
	Zitat

moelski Registriert seit: 31. Jul 2004 1.110 Beiträge Delphi 2010 Professional	#5 Re: Kostante vom Typ TDate anlegen 21. Okt 2007, 15:22 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 ... Dominik Schmidt Greetz Dominik I love Delphi 2007/2010
	Zitat