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

来源：百度知道 编辑：UC知道 时间：2024/09/12 22:14:55
输入其他出现对话框提示 怎么整呢
isdate不行 要求输入月日年 但是月年也可以识别 这就不行呀 还有时间应该用？？

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

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

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

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

ben

已经回答，路过