根据日期-显示当月第几周示例

时　间:2014-07-05 08:59:33
作　者:杜超-2号   ID：16058  城市：江阴
摘　要:示例是创建自定义函数

正　文:

点击下载此附件

图   示:

代   码:

参数可选，如果省略则取当前系统日期
用法：=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