Question

用VBA判断单元格（1,1）时间格式是否正确。

执行判断，如果不对，则提示！

Answer 1

可以用下面代码实现
Sub main()
If VarType([a1]) <> vbDate Then
MsgBox "A1非日期类型！"
end if
End Sub

关于此例中用到的vartype函数的相关知识：
返回一个 Integer，指出变量的子类型。

语法

VarType(varname)

必要的 varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。

返回值

常数
值
描述

vbEmpty
0
Empty（未初始化）

vbNull
1
Null（无有效数据）

vbInteger
2
整数

vbLong
3
长整数

vbSingle
4
单精度浮点数

vbDouble
5
双精度浮点数

vbCurrency
6
货币值

vbDate
7
日期

vbString
8
字符串

vbObject
9
对象

vbError
10
错误值

vbBoolean
11
布尔值

vbVariant
12
Variant（只与变体中的数组一起使用）

vbDataObject
13
数据访问对象

vbDecimal
14
十进制值

vbByte
17
位值

vbUserDefinedType
36
包含用户定义类型的变量

vbArray
8192
数组

注意 这些常数是由 Visual Basic
为应用程序指定的。这些名称可以在程序代码中到处使用，以代替实际值。

Answer 2

最稳妥的方法是检测数据类型，例如：
Sub xxx()
If VarType([a1]) <> vbDate Then MsgBox "请输入日期类型！"
End Sub