Question

vb怎么控制文本框中只允许输入日期型数据

输入其他出现对话框提示 怎么整呢
isdate不行 要求输入月日年 但是月年也可以识别 这就不行呀 还有时间应该用？？

Answer 1

在文本框的失去焦点的事件里进行判断就ok.. 给你写个源码就清楚了.o(∩_∩)o...

Private Sub Text1_LostFocus()
If IsDate(Text1.Text) = True Then
MsgBox "是日期型数据"
Else
MsgBox "不是日期型数据,你得重新输入"
Text1.SetFocus
End If
End Sub

Answer 2

已经回答，路过

Answer 3

ben

Answer 4

用isdate判断,例:
Dim abc As String
abc = "2008/09/28"
If IsDate(abc) Then
MsgBox "yes"
Else
MsgBox "not"
End If

Answer 5

失去焦点时判断一下,是不是日期型
isdate函数可以判断,具体网上查