You can achieve the same result in VBA code with the following function: Function VBAWeekNum(D As Date, FW As Integer) As Integer VBAWeekNum = CInt(Format(D, "ww", FW)) End Function ...
hk.knowledge.yahoo.com