如何验证TEXTBOX中输入的日期格式是否正确?
如何验证TEXTBOX中输入的日期格式是否正确?以下是引用leon2在2006-1-20 17:06:00的发言:
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
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