Einzelnen Beitrag anzeigen

Benutzerbild von Mr_G
Mr_G

Registriert seit: 2. Sep 2004
Ort: Duisburg
468 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Zufälliges Datum generieren

  Alt 4. Jan 2007, 22:29
Dazu wäre noch zu erwähnen, dass der Ausgangspunkt bei dieser Rechnung der 30.12.1899 ist. Der Ganzzahlige Anteil stellt also sozusagen die Anzahl der Tage vom 30.12.1899 bis zum jeweiligen Datum dar.

Und da ich ein netter Mensch bin hab ich sogar einen kleinen Codeschnippsel parat:
Delphi-Quellcode:
var Datum1, Datum2: TDate;
    Bereich, Zahl: Integer;
    Ergebnis: String;
...
  Randomize; //Zufallsgenerator initialisieren
...

  Datum1 := StrToDate('01.01.2007'); //Startdatum
  Datum2 := StrToDate('31.12.2007'); //Enddatum

  Bereich := Trunc(Datum2-Datum1); //Bereich durch Subtraktion
  Zahl := Random(Bereich); //Zufallszahl generieren

  Ergebnis := DateToStr(Datum1 + Zahl); //Ergebnis durch Addition
Ich hoffe du kannst was damit anfangen.
Gruß
Mr_G
Jan
  Mit Zitat antworten Zitat