怎样判断输入框中是否按指定的日期格式输入？
我想在输入后按确定时检测是否按 yyyy-mm-dd 的格式输入要怎么做？

If Text1.Text Like "????-??-??" Then

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

If IsNumeric(strTemp) Then
MsgBox "文字输入正确!", vbInformation
Else
MsgBox "输入的不是数字!", vbExclamation
End If
Else
MsgBox "没有按照 ****-**-** 的格式写!", vbExclamation
End If

[此贴子已经被作者于2006-1-20 17:07:50编辑过]

刚刚试了一下楼上的，不错，哈~
很高质量的代码，是楼上自己写的吗？

刚刚想到思路就徒手写了，而且发现有错误的地方改了两次。

好厉害啊,谢谢啦，今天又学到东西了~~
以后请多多指教哦

用正则比较容易

leon2你的程序写得很精，不过那只能判断输入是不是数字。但是日期也是有规则的，2223-26-66这个就不合格。能不能再完善一下呀。

[此贴子已经被作者于2006-1-21 13:56:42编辑过]

稍微加些代码就可以了(用了错误检测机制)。

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

[此贴子已经被作者于2006-1-21 15:42:06编辑过]