VBA根据未来日期输入值

Dim currentDate As Date
currentDate = Date

Dim futureDate As Date
futureDate = InputBox("请输入未来的日期：")

If IsDate(futureDate) Then
    ' 输入值有效，继续处理
Else
    ' 输入值无效，给出错误提示
    MsgBox "输入的日期无效，请重新输入。"
    Exit Sub
End If

If futureDate > currentDate Then
    ' 未来日期大于当前日期，继续处理
Else
    ' 未来日期小于等于当前日期，给出错误提示
    MsgBox "输入的日期必须大于当前日期，请重新输入。"
    Exit Sub
End If

Sub EnterFutureDate()
    Dim currentDate As Date
    Dim futureDate As Date
    
    currentDate = Date
    futureDate = InputBox("请输入未来的日期：")
    
    If IsDate(futureDate) Then
        If futureDate > currentDate Then
            ' 未来日期大于当前日期，继续处理
            ' 在这里添加你的代码逻辑
        Else
            ' 未来日期小于等于当前日期，给出错误提示
            MsgBox "输入的日期必须大于当前日期，请重新输入。"
            Exit Sub
        End If
    Else
        ' 输入值无效，给出错误提示
        MsgBox "输入的日期无效，请重新输入。"
        Exit Sub
    End If
End Sub