' 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