|
Registriert seit: 11. Aug 2012
Ort: Essen
1.468 Beiträge
Delphi 10.2 Tokyo Professional
|
AW: Array of Weeks anhand Datum von - Datum bis
23. Nov 2022, 12:39
Zuerst sicherstellen, dass das Anfangsdatum tatsächlich ein Montag ist. Wenn nicht evtl. korrigieren oder Fehler. Danach kann man das Anfangsdatum einfach immer um 7 erhöhen, das ist dann der nächste Montag (TDateTime speichert die Tage im ganzzahligen Anteil). Am Ende muss man auch noch entscheiden, ob man eine evtl. Teilwoche noch in der Liste haben will oder nicht.
Thomas Mueller
|