FredixBlog


Just my log about anything I could find enjoyable.



WeekNumber(Date)

author Posted by: fredometro on date Jan 1st, 2004 | filed Filed under: MS-Access

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)<= 4 And DateDiff(”d”, TheDate, DateSerial(Year(TheDate) + 1, 1, 1)) < 7 Then
            WeekNumber = 1
      End If
End If
End Function

tags