Datum

[SaFu]

Nagut dann noch mal in meinem StringGrid Steht von oben nach unten der Wochentag Drin so:

Delphi-Quellcode:

  StringGrid1.Cells[0,1]:= 'Montag';
  StringGrid1.Cells[0,5]:= 'Dienstag';
  StringGrid1.Cells[0,9]:= 'Mittwoch';
  StringGrid1.Cells[0,13]:= 'Donnerstag';
  StringGrid1.Cells[0,17]:= 'Freitag';
  StringGrid1.Cells[0,21]:= 'Samstag';

Mit dem DatetimePicker über gebe ich der Zelle unter dem Wochentag ein ausgewähltes Datum so:

Delphi-Quellcode:

StringGrid1.Cells[0,2]:= FormatDateTime('dd.mm.yy',DateTimePicker1.Date);// Montag 
StringGrid1.Cells[0,6]:= FormatDateTime('dd.mm.yy',DateTimePicker1.Date+1);// Dienstag 
StringGrid1.Cells[0,10]:= FormatDateTime('dd.mm.yy',DateTimePicker1.Date+2);//Mittwoch 
StringGrid1.Cells[0,14]:= FormatDateTime('dd.mm.yy',DateTimePicker1.Date+3);// Donnerstag 
StringGrid1.Cells[0,18]:= FormatDateTime('dd.mm.yy',DateTimePicker1.Date+4);// Freitag 
StringGrid1.Cells[0,22]:= FormatDateTime('dd.mm.yy',DateTimePicker1.Date+5);// Samstag

Wenn ich jetzt im DateTimePicker jetzt den z.B auswähle übergibt er mir das Datum vom mittwoch in die Zelle
 StringGrid1.Cells[0,2]:= FormatDateTime('dd.mm.yy',DateTimePicker1.Date);// Montag brauch aber die Daten in der richtigen Reihenfolge