如何验证TEXTBOX中输入的日期格式是否正确?

好象不能判定超出12月和31日这样的日期

根据你的具体需要在改一下代码就好拉，如果要判断是否超出12月
先把月份取出来，
strTemp = Mid(text1.text,6,2)

if strtemp > 12 then

MsgBox "月份超过12月"

end if
可以自己添的嘛

[CODE]If Text1.Text Like "????-??-??" Then

'已经按照这样的格式写了，再来检测是否为数字
Dim strY As String, strM As String, strD As String, strTemp As String
strY = Left(Text1.Text, 4)
strM = Mid(Text1.Text, 6, 2)
strD = Right(Text1.Text, 2)

strTemp = Format(strY & strM & strD, "0000-00-00")

On Error GoTo Err
If CDate(DateSerial(CInt(strY), CInt(strM), CInt(strD))) = strTemp Then
MsgBox "文字输入正确!", vbInformation
Else
Err:
MsgBox "输入的不是数字或日期格式错误!", vbExclamation
End If
Else
MsgBox "没有按照 ****-**-** 的格式写!", vbExclamation
End If[/CODE]

能不能这样啊

Function validdate()

Dim sDate As Date

On Error GoTo Errhander

sDate = CDate(Text1.Text)
Exit Function
Errhander:
MsgBox "对不起,数据格式错误"
End Function