VBA练习

oyzjo

Option Explicit

Private Sub Command1_Click()
Dim vardate, a

vardate = InputBox("Input date of tommorow", "Date input", Date + 1)

Select Case IsDate(vardate)
    Case False:
        Select Case vardate
            Case ""
                a = MsgBox("No input or input cancelled", vbInformation + vbOKOnly, "Warning")
            Case Else
                MsgBox "Invalid input"
        End Select
   
    Case True:
        vardate = DateValue(vardate)'就加这一句！转换。否则字符串和数值比较！
        Select Case vardate
            Case Is <= Date
                MsgBox ("invalid input" & Chr(10) & "Please input date later than today")
            Case Is > Date
                MsgBox vardate & Chr(10) & "Thanks for input"
        End Select
    End Select
End Sub

2288liu

不

懂了,