Question

关于VB限制输入格式的问题

在textbox里面只允许输入“2008-09-01”这类日期格式的字符！否则弹出警告...
还要求数据不得出现“2008-13-56”这样错误的日期吗？
回：如果可以的话更好！谢谢！

Answer 1

还要求数据不得出现“2008-13-56”这样错误的日期吗？

答案补充：
Private Sub Command1_Click()
On Error GoTo cuowu
Dim date0 As Date
date0 = CDate(Text1)
MsgBox "你已经正确的输入了日期：" & Format(date0, "yyyy年mm月dd日")
Exit Sub
cuowu:
MsgBox "日期无效或者格式错误！"
End Sub