Datum um xx Tage weiterzählen

[Sharky]

Also,

Ich würde ersteinmal ein Array machen wo ich die Monatstage reinschreibe.

Delphi-Quellcode:

Monat[1] := 31;
Monat[2] := 28;
.
.
Monat[12] = 31;

Jetzt brauchst Du eine Funktion die dir die anzahl von Tagen zwichen zwei Datumswerten berechnet.

Datum-1 ist ein von dir gewähltes Referenzdatum. Z.B. Samstag, 1.Januar 2000.

Jetzt kannst Du für jedes Datum berechnen wieviele Tage zwichen Datum -1 und dem von dir eingegebenem Datum liegen.
Da Du weisst das der 1. Januar 2000 ein Samstag ist weisst Du auch das alle 7 Tage wieder ein Samstag ist. (Stichwort: DIV und MOD).

Um zu einem Datum x Tage dazu zurechnen musst Du halt nur in einer Schleife solange addieren bis Du zum letzten Tag eines Monats (siehe Array) kommst. Dann erhöst Du den Monat um 1 und setzt den Tag auch auf 1. und weiter geht es in deiner Schleife.

Mehr kann ich auch die Schnelle nicht schreiben.

P.S.: Denk daran -> Nicht alle vier Jahre ist ein Schaltjahr!!