Give me the Date from the Week

[peet]

Function StartDateOfWeek(iWeekNo As Integer, iYearNo As Integer) As Date
    Dim d As Date
    d = "01.01." & iYearNo
    StartDateOfWeek = d + ((iWeekNo - 1) * 7)
End Function

Function NextDay(ByVal d As Date, ByVal DayCode As Long) As Date
    NextDay = d - Weekday(d) + DayCode + IIf(Weekday(d) < DayCode, 0, 7)
End Function

use them like this:

MsgBox Format(NextDay(StartDateOfWeek(11, Year(Date)), vbThursday), "dd/mm/yyyy")

peet