这是一种使用方法在VBA中都是 WEEKNUM（）和 TODAY（）：

Here is one way to use both WEEKNUM() and TODAY() in VBA:

Sub dural()
    If Evaluate("=weeknum(today())") = 28 Then
        MsgBox 28
    Else
        MsgBox "not 28"
    End If
End Sub