Datum bestimmen von z.B. 3. Sonntag jedes Monats

[AndreasZZZ]

Hallo,

ich bin echt am verzweifeln, denn ich suche nun schon seit gestern alles Mögliche und Unmögliche zum Thema Datum-Berechnung in Delphi aber bei meinem Problem bin ich kein bisschen weiter.

Ich muss das Datum berechnen des nächsten x. Wochentages eines Monats, d.h. vom aktuellen Tag ausgehen und bestimmen wann ist z.B. der nächste 3. Sonntag eines Monats.

Z.B. nehmen wir mal an:
heute ist Mittwoch, der 16.07.2003
- gesuchter Tag: der nächste 3. Sonntag eines Monats, d.h. 20.07.2003 oder
- gesuchter Tag: der nächste 2. Sonntag eines Monats, d.h. 10.08.2003

Es soll eine Funktion sein, die etwa wie folgt aussehen
function Get_next_Wochentag_pro_Monat(iWelcher, iWochentag: Integer): TDateTime;

mit iWelcher=1 bis 5, d.h. x. Wochentag
mit iWochentag=1 bis 7 analog DayOfWeek, d.h. Sonntag=1 und Samstag=7

Somit würde um bei obigem Beispiel zu bleiben:
- Get_next_Wochentag_pro_Monat(3,1) den 20.07.2003
- Get_next_Wochentag_pro_Monat(2,1) den 10.08.2003
zurückliefern, wenn heute der 16.07.2003 wäre.

Ich bin echt am verzweifeln. Hat jemand eine Idee?

Bye
Andreas