如题所述
å¯ä»¥ç¨ä¸é¢ä»£ç å®ç°
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
为åºç¨ç¨åºæå®çãè¿äºå称å¯ä»¥å¨ç¨åºä»£ç ä¸å°å¤ä½¿ç¨ï¼ä»¥ä»£æ¿å®é å¼ã
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
为åºç¨ç¨åºæå®çãè¿äºå称å¯ä»¥å¨ç¨åºä»£ç ä¸å°å¤ä½¿ç¨ï¼ä»¥ä»£æ¿å®é å¼ã
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-05-29
关于此例中用到的vartype函数的相关知识：
返回一个 Integer，指出变量的子类型。
语法
VarType(varname)
必要的 varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。
vbEmpty
0
Empty（未初始化）
vbNull
1
Null（无有效数据）
vbInteger
2
整数
vbLong
3
长整数
vbSingle
4
单精度浮点数
第2个回答 2018-02-04
可以用下面代码实现
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
为应用程序指定的。这些名称可以在程序代码中到处使用，以代替实际值。
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
为应用程序指定的。这些名称可以在程序代码中到处使用，以代替实际值。
