如果文本筐中输入的不是日期类型的数据话，程序就会出错
要怎么样判断文本筐里面的数据是不是日期类型
代码怎么写，请大家指教一下
谢谢
（急）

想簡單點就用data timepicker控件，如果一定要自己判斷，獲取文本框的數據，，根據你要求輸入的數據類型判斷，用MID函數
比如 輸入數據 str=2007/11/16可以這樣判斷
Dim str As String
str = Me.txtData.Text.Trim()
If IsNumeric(Mid(str, 1, 4)) = False Then '判斷是否是數字
MsgBox("輸入格式有誤")
Me.txtData.Text = ""
'處理語句
End If
If Mid(str, 5, 1) <> "/" Then
MsgBox("輸入格式有誤")
Me.txtData.Text = ""
End If
If Mid(str, 8, 1) <> "/" Then
MsgBox("輸入格式有誤")
Me.txtData.Text = ""
End If

[此贴子已经被作者于2007-11-17 8:56:22编辑过]

试一下，也支持一下！