1、在文本框中只接受“0-9”这10字符。而且年月日分隔符会自动生成。
2、VB的年份为100-9999，本人限在1000-2999，不够用吗？如果真得不够用，你可以自己改造加以控制。或许你会问：为什么年份不用两位数来表示？

我的观点：

1、两位数的年份格式不直观。

2、如果碰到要记载出生年月日信息时，很可能会很难办。

3、月份只能从01-12，而且，当输入3-9时，系统会自动默认为03-09。

4、日期如果输入4-9时系统也会自动默认为04-09。还有：

A：当月份为1、3、5、7、8、10、12时，日期不能超过31

B：当月份为4、6、9、11时，日期不能超过30

C：当月份为2时且为闰年时，日期不能超过29

D：当月份为2时且为非闰年，日期不能超过28

有了以上的“优点”，只要输入年月日完毕，就会确保它是一个合法的日期表达式。朋友，赶快把下面那段程序粘贴到VB工程中（当然，你也许要改变Text1为其它的文本框编号如：Text3）去试一下吧，相信，你会立即爱上她，直到永远......

Private Sub Text1_Change()

Dim a, b, c As String
---------------------------------------------------------------------------
年份输入的控制
---------------------------------------------------------------------------
限制第一位必须为"1"或"2" ，也就说年份必须在1000-2999之间，够用吧！

If Len(Text1.Text) = 1 Then

If Left((Text1.Text), 1) <> "1" And Left((Text1.Text), 1) <> "2" Then

Text1.Text = ""

End If

End If
限制第二、三、四位必须为“1、2、3、4、5、6、7、8、9、0”

If Len(Text1.Text) = 2 Or Len(Text1.Text) = 3 Or Len(Text1.Text) = 4 Then

If Right((Text1.Text), 1) <> "0" And Right((Text1.Text), 1) <> "1" And _

Right((Text1.Text), 1) <> "2" And Right((Text1.Text), 1) <> "3" And _

Right((Text1.Text), 1) <> "4" And Right((Text1.Text), 1) <> "5" And _

Right((Text1.Text), 1) <> "6" And Right((Text1.Text), 1) <> "7" And _

Right((Text1.Text), 1) <> "8" And Right((Text1.Text), 1) <> "9" Then

Text1.Text = Left((Text1.Text), Len(Text1.Text) - 1)

Text1.SelStart = Len(Text1.Text)

End If

End If

If Len(Text1.Text) = 4 Then

Text1.Text = Text1.Text + "-"

Text1.SelStart = Len(Text1.Text)

End If 当年份正确输入后就自动加上的“-”分隔符
---------------------------------------------------------------------------
月份输入的控制
---------------------------------------------------------------------------

If Len(Text1.Text) = 6 Then

If Right((Text1.Text), 1) <> "0" And Right((Text1.Text), 1) <> "1" Then

If Right((Text1.Text), 1) = "2" Or Right((Text1.Text), 1) = "3" Or _

Right((Text1.Text), 1) = "4" Or Right((Text1.Text), 1) = "5" Or _

Right((Text1.Text), 1) = "6" Or Right((Text1.Text), 1) = "7" Or _

Right((Text1.Text), 1) = "8" Or Right((Text1.Text), 1) = "9" Then

a = Right((Text1.Text), 1)

Text1.Text = Left((Text1.Text), 5) + "0" + a + "-"

如果这样，那下面一段if len(text1.text)=7的判断自然就自动跳过去了。

Text1.SelStart = Len(Text1.Text)

Else 限制只能输入“0-9”

Text1.Text = Left((Text1.Text), Len(Text1.Text) - 1)

Text1.SelStart = Len(Text1.Text)

End If

End If

End If

If Len(Text1.Text) = 7 Then

If Left(Right(Text1.Text, 2), 1) = "0" Then 如果月份第一位为“0”

If Right((Text1.Text), 1) <> "1" And Right((Text1.Text), 1) <> "2" And _

Right((Text1.Text), 1) <> "3" And Right((Text1.Text), 1) <> "4" And _

Right((Text1.Text), 1) <> "5" And Right((Text1.Text), 1) <> "6" And _

Right((Text1.Text), 1) <> "7" And Right((Text1.Text), 1) <> "8" And _

Right((Text1.Text), 1) <> "9" Then

Text1.Text = Left((Text1.Text), Len(Text1.Text) - 1)

Text1.SelStart = Len(Text1.Text)

Else

Text1.Text = Text1.Text + "-