在Excel中使用VBA检查日期是否在两个给定日期之间

Sub CheckDateRange()
    Dim startDate As Date
    Dim endDate As Date
    Dim checkDate As Date
    
    startDate = DateSerial(2022, 1, 1) ' 开始日期
    endDate = DateSerial(2022, 12, 31) ' 结束日期
    checkDate = Range("A1").Value ' 要检查的日期，假设在单元格A1中
    
    If checkDate >= startDate And checkDate <= endDate Then
        MsgBox "日期在指定范围内"
    Else
        MsgBox "日期不在指定范围内"
    End If
End Sub