Ich habe den case-Vorschlag mal probiert, es hat funktioniert mit dem heutigen Tag (Sonntag), habe dann aber das Datum meines PC's auf morgen gestellt, dann zeigte mit der Datetimepicker den 3.1. an, warum?
der Code sieht jetzt so aus:
Delphi-Quellcode:
datetimepicker1.Date := now;
case DayOfWeek(DateTimePicker1.Date) of
1: DateTimePicker1.Date := DateTimePicker1.Date +1; //Sonntag
2: DateTimePicker1.Date := DateTimePicker1.Date +2; //Samstag
3: DateTimePicker1.Date := DateTimePicker1.Date +3; //Freitag
4: DateTimePicker1.Date := DateTimePicker1.Date +4; //Donnerstag
5: DateTimePicker1.Date := DateTimePicker1.Date +5; //Mittwoch
6: DateTimePicker1.Date := DateTimePicker1.Date +6; //Dienstag
7: DateTimePicker1.Date := DateTimePicker1.Date; //Montag
end;