VBA数据类型

VBA数据类型 据类型（名称） Boolean Byte Integer Long Single 大小（字节） 描述 2 1 2 4 4 逻辑值True或False 0到255的整数 –32,768到32,767的整数 –2,147,483,648到2,147,483,647的整数 单精度浮点数值 负数：–3.402823E38到–1.401298E–45 正数：1.401298E–45到3.402823E38 双精度浮点数值 负数：–1.79769313486231E308到4.94065645841247E–324 正数：4.94065645841247E–3241.79769313486231E308 –到Double 8 Currency 8 （放大的整数（译者：整数除以10000得到的数值，参见VBA帮助））使用在定点计算中： –922,337,203,685,477.5808到922,337,203,685,477.5807 +/–79,228,162,514,264,337,593,543,950,335没有小数点； +/–7.9228162514264337593543950335小数点后有28位数字； 最小的非0数字是 +/–0.0000000000000000000000000001 从100年1月1日到9999年12月31日的日期 Decimal 14 Date 8 String（变长字符串） 10字节+字符变长字符串最多可包含大约 20 亿 ( 2^31)个字符。 串长度 String（定长字符串） 字符串长度 定长字符串最多可包含大约65,400 个字符。 Object Variant（带数字） Variant（带字母） 用户定义类型 （使用Type）

4 16 对象变量用来引用Excel中的任何对象 最高范围到Double类型的任何数值 22字节+字符和变长字符串的范围一样 串长度 成员所需的每个成员的范围和它的数据类型的范围一致 数值 数据类型的转换

1. 各种进制转换函数

VB中涉及到的数据进制之间的转换函数主要有如下几个: Hex 函数: 返回代表十六进制数值的 String;

Oct 函数: 返回代表一数值的八进制值的Variant (String);

Cint函数: 强制将一个表达式转换成-32,768 至 32,767的整型;

CLng函数: 强制将一个表达式转换成-2,147,483,648 至 2,147,483,647的长整型; Cdec函数: 强制将一个表达式转换成Decimal 数据类型; CDbl函数: 强制将一个表达式转换成Double 数据类型;

例子:

(1) A=hex(5) 返回5; (2) B=hex(10) 返回A (3) C=hex(23) 返回17 (4) D=oct(5) 返回5 (5) E=oct(10) 返回12 (6) F=oct(23) 返回27 (7) G=Cint(&H17) 返回23 (8) H=Cint(&O12) 返回10

值得一提的是Hex函数和Oct函数返回的都是字符串,如果是想将十六进制或是八进制的字符串变量转换成十进制,可以按如下方法进行: C=”17” 17为十六进制数值的String C=”&H” & C

Ic=Cint(C) 返回23

2. 字符串和数字转换函数

Str()和Val()用于字符串和数字的相互转换; Chr()和Asc()用于字符串和AscII码的相互转换; Chrw()和Ascw()用于Unicode码和中文的相互转换; Format()函数用途十分广泛的一个函数,功能十分强大.

例子:

(1) MyString = Str(-459.65) ' 返回 \"-459.65\"。 MyString = Str(459.001) ' 返回 \" 459.001\"。 (2) MyValue = Val(\" 2 45 7\") ' 返回 2457。 MyValue = Val(\"24 and 57\") ' 返回 24。 (3) MyChar = Chr(97) ' 返回 a。 MyChar = Chr(37) ' 返回 %。

(4) MyNumber = Asc(\"Apple\") ' 返回 65。 MyNumber = Asc(\"a\") ' 返回 97。