I would like to know if there is a function available to determine the week number in any given month.
For example March 20th, 2010 would be Week #3
For example March 20th, 2010 would be Week #3
Public Function fCalcWeekOfMonth(dteDate As Date) As Byte
fCalcWeekOfMonth = DatePart("ww", dteDate) - _
DatePart("ww", DateSerial(Year(dteDate), Month(dteDate), 1)) + 1
End Function
MsgBox fCalcWeekOfMonth(#3/20/2010#)
3
Comment