linluohan 发表于 2007-11-16 20:00

文本筐数据类型的判断问题

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

fairy4 发表于 2007-11-17 08:55

想簡單點就用data timepicker控件，如果一定要自己判斷，獲取文本框的數據，，根據你要求輸入的數據類型判斷，用MID函數<br>比如 輸入數據 str=2007/11/16可以這樣判斷<br>   Dim str As String<br>        str = Me.txtData.Text.Trim()<br>        If IsNumeric(Mid(str, 1, 4)) = False Then '判斷是否是數字<br>            MsgBox("輸入格式有誤")<br>            Me.txtData.Text = ""<br>            '處理語句<br>        End If<br>        If Mid(str, 5, 1) &lt;&gt; "/" Then<br>            MsgBox("輸入格式有誤")<br>            Me.txtData.Text = ""<br>        End If<br>        If Mid(str, 8, 1) &lt;&gt; "/" Then<br>            MsgBox("輸入格式有誤")<br>            Me.txtData.Text = ""<br>        End If
[align=right][color=#000066][此贴子已经被作者于2007-11-17 8:56:22编辑过][/color][/align]

tml327 发表于 2007-11-17 09:45

试一下，也支持一下！

页: [1]

编程论坛