在VBA中根据日期值确定日期

Sub DetermineDate()
    Dim dateValue As Date
    Dim result As String
    
    ' 获取日期值
    dateValue = DateValue("2022-01-01")
    
    ' 根据日期值确定日期
    If dateValue = DateValue("2022-01-01") Then
        result = "这是2022年的元旦"
    ElseIf dateValue = DateValue("2022-02-14") Then
        result = "这是2022年的情人节"
    ElseIf dateValue = DateValue("2022-12-25") Then
        result = "这是2022年的圣诞节"
    Else
        result = "这个日期没有特殊的节日"
    End If
    
    ' 输出结果
    MsgBox result
End Sub