可以用下面代码实现
Sub main()
If VarType([a1]) vbDate Then
MsgBox "A1非日期类型!"
end if
End Sub
关于此例中用到的vartype函数的相关知识:
返回一个 Integer,指出变量的子类型。
语法
VarType(varname)
必要的 varname 参数是一个 Variant,包含用户定义类型变量之外的任何变量。