Dim todaydt As String		' today's date
Dim weekno As Integer		' week number of month

todaydt = Today()
weekno = WeekofMonth (todaydt)




Function WeekofMonth (todaydt As String) As Integer
	' return week of month for given date
	
	WeekofMonth = ( Day(todaydt) - WeekDay(todaydt)+13 ) / 7

End Function