vbtext日期格式输入

VB text 日期格式化输入

新建工程添加text控件设置text1.locked=true Text1.Text=“0000-00-00”这个程序只是限定了输入格式，对日期只是简单地判断

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim Mystr, Lmystr As String

Dim Lint

Static Myx As Integer

'通过KeyAscii判断输入限定范围0-9

If KeyAscii > 47 And KeyAscii < 58 Then

'将光标位置传给变量Myx

Myx = Text1.SelStart + 1

Mystr = Text1.Text

If Myx = 0 Then

Myx = 1

End If

If Myx = 5 Or Myx = 8 Then

Myx = Myx + 1

Mid(Mystr, Myx, 1) = Chr(KeyAscii)

Text1.Text = Mystr

Myx = Myx + 1

Else

If Myx < 11 Then

Mid(Mystr, Myx, 1) = Chr(KeyAscii)

Text1.Text = Mystr

Myx = Myx + 1

End If

End If

Text1.SelStart = Myx - 1

Else

If KeyAscii = 13 Then

Lint = 0

If Left(Text1.Text, 4) < 1900 Or Left(Text1.Text, 4) > 3000 Then

Lmystr = "年份输入错误——"

Lint = Lint + 1

End If

If Mid(Text1.Text, 6, 2) < 1 Or Mid(Text1.Text, 6, 2) > 12 Then Lmystr = Lmystr & "月份越界了"

Lint = Lint + 1

End If

If Right(Text1.Text, 2) < 1 Or Right(Text1.Text, 2) > 31 Then

Lmystr = Lmystr & "日期越界了"

Lint = Lint + 1

End If

If Lint > 0 Then

MsgBox Lmystr

Text1.SetFocus

Text1.SelStart = 0

End If

End If

End If

End Sub