f ''当月份为小月份时日期不能大于30。
If b = "02" Then
If Val(c) Mod 4 <> 0 And Val(Right(Text1.Text, 2)) > 28 Then
Text1.Text = Left((Text1.Text), Len(Text1.Text) - 2)
Text1.SelStart = Len(Text1.Text)
End If ''非闰年日期不得超过28。
If Val(c) Mod 4 = 0 And Val(Right(Text1.Text, 2)) > 29 Then
Text1.Text = Left((Text1.Text), Len(Text1.Text) - 2)
Text1.SelStart = Len(Text1.Text)
End If ''闰年日期不得超过29。
End If ''当月份为2时的日期正确性判断!
End If
''---------------------------------------------------------------------------
''当年月日输入后就不再接受其它字符了。方法如下:
''---------------------------------------------------------------------------
''第一种方法:
''在Text1的属性窗口中设Maxlength=10
''第二种方法:
''Text2.Setfocus 即在适当的地方设一个跳转语句使下一个对象得到焦点。
''第三种方法:
If Len(Text1.Text) = 11 Then
Text1.Text = Left((Text1.Text), Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
End If
End Sub