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';