怎样确定往text中输入的值只能是年份或月份解决思路

怎样确定往text中输入的值只能是年份或月份
怎样确定往text中输入的值只能是年份或月份

[解决办法]

VB code

  If Len(Text1.Text) = 4 Then '判断是否为4位数     If IsNumeric(Text1.Text) Then '判断是否为数值        MsgBox "已输入4位年份数值"     End If  End If
[解决办法]
If Trim(Text1.Text) = "" Then   '当Text为空，弹出提示框
MsgBox "请输入年份！", 48, "提示"
Text1.SetFocus
Exit Sub
Else
If Val(Text1) > Year(Now) Then   '输入年份不得大于当前年份
  MsgBox "还没到这一年!", 48, "提示"
  Text1.SetFocus
  Exit Sub
Else
If Trim(Text2.Text) = "" Then
MsgBox "请输入月份！", 48, "提示"
Text2.SetFocus
Exit Sub
Else
If Val(Text1) < 1 Or Val(Text1) > 9999 Then  '年份是从1——9999的数字
   MsgBox "输入年份非法！", 48, "提示"
   Text1.SetFocus
   Exit Sub
Else
If Val(Text2) < 1 Or Val(Text2) > 12 Then     '月份是从1——12的数字
   MsgBox "输入月份非法！", 48, "提示"
   Text2.SetFocus
   Exit Sub
End If
End If
End If
End If
End If