Einzelnen Beitrag anzeigen

Marcoo

Registriert seit: 3. Nov 2010
Ort: Bergkamen (Bei Dortmund)
10 Beiträge
 
Delphi 2010 Architect
 
#15

AW: variable zahl eintäge in tlistbox oder advsmoothlistbox

  Alt 28. Nov 2010, 12:53
Aber eine sache hab ich noch selbes programm anderer punkt soll ich ein neues thema machen oder nicht
weil das programm ist ja ein Geburtstags errinerer und da mus man ja logischer weise den tag des geburtstags eintragen ich hab das nur halb hingekriegt also es geht aber nur1 mal also kann ich den 28.11.2010 eintragen aber am 28.11.2011 wird er mich nicht errinern
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';
Marco
  Mit Zitat antworten Zitat