在VBA中从日期范围中获取特定日期

Sub GetSpecificDate()
    Dim startDate As Date
    Dim endDate As Date
    Dim specificDate As Date
    
    startDate = #1/1/2022# ' 设置开始日期
    endDate = #12/31/2022# ' 设置结束日期
    specificDate = #6/30/2022# ' 设置要获取的特定日期
    
    ' 循环遍历日期范围
    For currentDate = startDate To endDate
        ' 判断当前日期是否等于特定日期
        If currentDate = specificDate Then
            MsgBox "找到了特定日期：" & specificDate
            Exit Sub ' 找到后退出循环
        End If
    Next currentDate
    
    ' 如果循环结束仍未找到特定日期
    MsgBox "未找到特定日期：" & specificDate
End Sub