Code Snippets → Get Week Number of Date in Month (1-5)

' Paste into a Standard Module
' Example:
' GetMonthWeek(#7/29/2012#) returns 5

Function GetMonthWeek(dteDate As Date) As Integer
Dim intAdjuster As Integer
If Day(dteDate) Mod 7 <> 0 Then
    intAdjuster = 1
End If

GetMonthWeek = (Day(dteDate) \ 7) + intAdjuster
End Function