|
Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
Delphi 12 Athens
|
Re: Nächstes Datum errechnen
30. Dez 2008, 14:03
eigentlich schon. Da ich bei meinen Überlegungen auf dieses Problem gestoßen war.
minDate := IncYear(StartOfAYear(YearOf(date)));
du initialisierst minDate mit 01.01.2009 00:00, wenn ich o.g. Funktion richtig interpretiere. (ausgegangen vom heutigen Datum)
wenn der erste höhere als heute gültige Eintrag (z.B. 02.05.2009) gefunden wird ist
if (aDate >= date) and (aDate < minDate) then
...False und minDate wird nicht aktualisiert.
|