Zufälliges Datum generieren

[Christian Seehase]

Moin Jan,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Doch, das geht auch mit Random.

Ein Datumswert (TDateTime) ist eigentlich nichts anderes als der Datentyp double.
Der Nachkommaanteil gibt hierbei die Uhrzeit an, der Vorkommateil das Datum.
Da Du ja nur das Datum haben willst, dies aber, im Prinzip, eine ganze Zahl ist, kannst Du Random verwenden.

Beispiel:

  ShowMessage(DateToStr(Random(10000))); Vorher muss einmal im Programm Randomize aufgerufen werden (z.B. im OnCreate eines Formulares)
Es ist zwar nur eine Pseudo-Zufallszahl, wird aber in vielen Fällen genügen.

Ob Du jetzt noch einen Wert fest dazuaddieren, oder vielleicht auch abziehen musst, hängt natürlich davon ab, in welchem Bereich sich das Datum bewegen soll.