FredixBlog

Gives the week number of any date. The second week starts the first monday in the year.

Public Function WeekNumber(ByVal TheDate As Date)
Dim ToDay, WeekTwoMonday As Date

WeekNumber = Val(Format(TheDate, "ww"))
If WeekDay(DateSerial(Year(TheDate), 1, 1), vbMonday) > 4 Then
      WeekNumber = WeekNumber - 1
      If WeekNumber = 0 Then
            WeekNumber = WeekNumber(DateSerial(Year(TheDate) - 1, 12, 31))
      End If
End If

If WeekNumber >= 52 Then
      If WeekDay(DateSerial(Year(TheDate) + 1, 1, 1), vbMonday)&lt;= 4 And DateDiff("d", TheDate, DateSerial(Year(TheDate) + 1, 1, 1)) < 7 Then
            WeekNumber = 1
      End If
End If
End Function

No related posts.