点击下载此附件

图   示:

代   码:

参数可选，如果省略则取当前系统日期
用法：=WeekOfMonth([日期字段])
Function WeekOfMonth(Optional TheDate As Variant) As Long
    Dim lngDay As Long
    If IsMissing(TheDate) Then
        TheDate = Date
    End If
    Select Case Day(TheDate)
    Case 1 To 7
        WeekOfMonth = 1
    Case 8 To 14
        WeekOfMonth = 2
    Case 15 To 21
        WeekOfMonth = 3
    Case 22 To 28
        WeekOfMonth = 4
    Case Else
        WeekOfMonth = 5
    End Select
End Function