VarType函数
时 间:2021-10-22 20:06:40
作 者:杨雪 ID:42182 城市:南京
摘 要:返回一 个 Integer 类型的值,指示 变量的子类型或对象的默认属性 的类型。
正 文:
语 法:
VarType (varname)
必需的 varname 参数是一个 Variant,其中包含除用户定义类型的变量之外 的任何变量。
返回值:
返回下列常量之一或其中一个常量的和。
常量 值 说明
vbEmpty 0 空(未初始化)
vbNull 1 Null(不是有效数据)
vbInteger 2 Integer
vbLong 3 长整数
vbSingle 4 单精度浮点数
vbDouble 5 双精度浮点数
vbCurrency 6 货币值
vbDate 7 日期值
vbString 8 String
vbObject 9 Object
vbError 10 错误值
vbBoolean 11 布尔值
vbVariant 12 Variant(仅与变量的 数组一起使用)
vbDataObject 13 数据访问对象
vbDecimal 14 小数值
vbByte 17 字节值
vbLongLong 20 LongLong 整数 (仅在 64 位平台上)
vbUserDefinedType 36 包含用户定义类型的变量
vbArray 8192 数组 (函数返回时始终添加到另一个)
vbEmpty 0 空(未初始化)
vbNull 1 Null(不是有效数据)
vbInteger 2 Integer
vbLong 3 长整数
vbSingle 4 单精度浮点数
vbDouble 5 双精度浮点数
vbCurrency 6 货币值
vbDate 7 日期值
vbString 8 String
vbObject 9 Object
vbError 10 错误值
vbBoolean 11 布尔值
vbVariant 12 Variant(仅与变量的 数组一起使用)
vbDataObject 13 数据访问对象
vbDecimal 14 小数值
vbByte 17 字节值
vbLongLong 20 LongLong 整数 (仅在 64 位平台上)
vbUserDefinedType 36 包含用户定义类型的变量
vbArray 8192 数组 (函数返回时始终添加到另一个)
这些常量由 Visual Basic for Applications 指定。 这些名称可在代码中的任何位置使用来代替实际值。
备 注:
如果传递对象并且具有默认属性,则 VarType (属性) 返回 对象的默认属性的类型。
VarType 函数本身绝不返回 vbArray 的值。 总是将其添加到一些其他值以指示特定类型的数组。 例如,为整数数组返回的值的计算方式为 vbInteger + vbArray ,或 8194。
常量 vbVariant 仅与 vbArray 一起使用以指示 VarType 函数的参数是类型 Variant 的数组。
示 例:
此示例使用 VarType 函数确定不同变量的子类型,在一种情况下,确定对象的默认属性的类型。
Dim MyCheck Dim IntVar, StrVar, DateVar, AppVar, ArrayVar ' 初始化变量 IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969# Set AppVar = Excel.Application ArrayVar = Array("1st Element", "2nd Element") ' 在不同的类型上运行VarType函数. MyCheck = VarType(IntVar) ' 返回 2. MyCheck = VarType(DateVar) ' 返回 7. MyCheck = VarType(StrVar) ' 返回 8. MyCheck = VarType(AppVar) ' 返回 8 (vbString) ' 即使AppVar是一个对象. MyCheck = VarType(ArrayVar) ' 返回 8204 这是 ' `8192 + 12`, 的计算 ' `vbArray + vbVariant`.
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)