Geburtstag Erinnerer tage eingeben

[Marcoo]

Hallo also das programm an dem ich grad arbeite ist ein Geburtstags errinerer und da muss man ja logischer weise den tag des geburtstags eintragen ich hab das nur halb hingekriegt also es geht aber nur 1 mal also kann ich den 28.11.2010 eintragen aber am 28.11.2011 wird er mich nicht errinert

Delphi-Quellcode:

var
  jahr, monat, tag: Word;
begin
  DecodeDate(Date, jahr, monat, tag);
  DatePicker.Date := Date;
  DatePicker.Calendar.MinDate := Date;
  DatePicker.Calendar.MaxDate := Date + 365;

und die tage bis zu dem im datepicker angegeben tag berechnet er mit

Delphi-Quellcode:

AdvSmoothListBox1.Items[i].Notes := inttostr
(DaysBetween(strtodate(AdvSmoothListBox1.Items[i].Info), now))
+ ' Tage noch';