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!!
Stephan B.
"Lasst den Gänsen ihre Füßchen"