FredixBlog

Retrieves the date of the monday of a given week. You need the WeekDay() function to make this one work.

Public Function WeekMonday(TheYear As Integer, TheWeek As Integer)
Dim tmpWeek, tmpYear As Integer
Dim tmpDate As Date
      tmpDate = DateSerial(TheYear, 6, 30)
      While WeekDay(tmpDate, vbMonday) <> 1
            tmpDate = DateAdd("d", -1, tmpDate)
      Wend
      While WeekNumber(tmpDate) < TheWeek
            tmpDate = DateAdd("d", 7, tmpDate)
      Wend
      While WeekNumber(tmpDate) > TheWeek And DateSerial(Year(tmpDate), 1, 1) = DateSerial(TheYear, 1, 1)
            tmpDate = DateAdd("d", -7, tmpDate)
      Wend
      WeekMonday = tmpDate 'DateAdd("d", -7, tmpDate)
End Function

No related posts.