在VBA中根据财务日历查找一个月中的第几周

Function GetWeekOfMonth(dateValue As Date) As Integer
    Dim firstDayOfMonth As Date
    Dim weekNumber As Integer
    
    ' 获取指定日期所在月份的第一天
    firstDayOfMonth = DateSerial(Year(dateValue), Month(dateValue), 1)
    
    ' 计算指定日期所在周的周数
    weekNumber = DatePart("ww", dateValue, vbMonday) - DatePart("ww", firstDayOfMonth, vbMonday) + 1
    
    GetWeekOfMonth = weekNumber
End Function