Question

vb中如何判断输入的日期是否正确？

text1,text2,text3分别输入年月日。然后赋给a如何判断a的正确。代码为a = Str(text1.text) & "-" & Str(text2.text) & "-" & Str(text3.text)。现在要判断a的日期是否正确。如我输入2010-2-31。请求高手帮助。

Answer 1

Private Sub Command1_Click()
Dim a
Dim b
a = Text1 & "-" & Text2 & "-" & Text3
b = Date
If a <> Str(b) Then
MsgBox "日 期 错 误", "48"
Else
MsgBox "日期正确", "64"
End If

End Sub

Answer 2

用IsDate(a)判断

Answer 3

Private Sub Text3_lostfocus()
On Error GoTo over
Dim y, m, d As String
yyyy = Left(Text3.Text, 4)
mm = Mid(Text3.Text, 5, 2)
dd = Right(Text3.Text, 2)
If IsDate(CDate(y & "-" & m & "-" & d)) = True Then Exit Sub
over: MsgBox "日期输入错误，请重新输入": Text3.SetFocus
End Sub