inputbox判定日期怎么判？

alstar

我开始定义一个变量为date，
dim riqi as date
riqi = Application.InputBox("请输入日期", "提示")
If VBA.IsDate(riqi) = True Then
来判断

但是在inputbox输入框里如果输入的不是日期，会报错。
后来我把声明改了。
dim riqi
没有给他定义类型，
不给他定义类型，在后续的日期累计里会出错。
比如
I=I+1
riqi + 1
就会出错。   能不能二次定义它的类型？

alstar

已解决，用on error goto解决了