VB中一个简单实用的时间正确与否的判断方法

VB中一个简单实用的时间正确与否的判断方法：

Private Sub Command1_Click()

Dim i As Integer, rs As String

rs = Text1.Text

If rs<> "" And IsDate(rs) = False Then

MsgBox "时间格式不对,请重新输入", vbOKOnly + vbInformation, "注意"

Text1.SetFocus '光标移到此文本框要求重新输入Exit Sub

End If

If rs<> "" And Len(rs) <> 8 Then

MsgBox "时间格式不对,请重新输入", vbOKOnly + vbInformation, "注意"

Text1.SetFocus '光标移到此文本框要求重新输入Exit Sub

Else

If rs<> "" Then

rs1 = Right(rs, 2)

rs2 = Right(Year(Now), 2)

If Val(rs1) >= 0 And Val(rs1) <= Val(rs2) Then

ss = "20" & rs1

Else

ss = "19" & rs1

End If

rs1 = Left(rs, 2)

ss = ss& rs1

rs1 = Mid(rs, 4, 2)

ss = ss& rs1

Text2.Text = ss

End If

End If

End Sub