标题:不用日期控件的智能日期输入法（vb 代码版）
正文:
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
