If Err.Number = 13什么意思呢

来源:百度知道 编辑:UC知道 时间:2024/06/18 12:08:23
用一个文本框控件,和一个命令按钮,当往文本框输入的是00:00(小时,分钟)时间格式时,点按钮会出现一个msg显示格式正确,反之显示格式错误。

编好的程序:
Private Sub Command1_Click()
On Error Resume Next
Dim D As Date
D = TimeValue(Text1)
If Err.Number = 13 Then MsgBox "时间格式错误!正确例:23:59 或:23.59"
End Sub

第五行If Err.Number = 13 什么意思,语法方面涉及到什么了么~~

On Error Resume Next的意思就是略过错误
If Err.Number = 13就是说执行以上语句以后有没有错误13(类型不匹配)生成(如果执行一个语句产生错误时会自动设置Err对象的Number和Description等等属性)

你可以使用Description属性来看错误的简要描述.