Function ConvertDate(mYear As Integer, mWeek As Integer, mDay As Integer) As Date
Dim iDays As Integer, iNumDays As Integer
iDays = Choose(Weekday(DateSerial(mYear, 1, 1), vbMonday), 0, -1, -2, -3, 3, 2, 1)
iNumDays = (mWeek - 2) * 7 + iDays + mDay
ConvertDate = DateAdd("d", iNumDays - 1...