Hallo,
auf swissdelphicenter.ch
...get the week number of a date? gibt es die Funktion
WeekToDate()
[EDIT]
ShowMessage(FormatDateTime('dd.mm.yyyy', WeekToDate(51, 2000))); // liefert das Datum einer gesuchten Woche (51.) eines Jahres
[/EDIT]
Mit
FormatDateTime('dddd', WeekToDate(51, 2000)) // 1. Wochentag der 51. Woche im Jahr 2000
bekommst Du den 1.Wochentag der gesuchten Woche als String zurück,
diesen kannst Du mit Deinem Eingabetag vergleichen, und wenn er nicht der gewünschte ist, einfach den Tag raufzählen.