按键精灵函数介绍

按字母顺序排列::::: [A] =================================================================== ======== Abs 函数返回参数的绝对值，其类型和参数相同。

语法Abs(number) 必要的number 参数是任何有效的数值表达式，如果number 包含Null，则返回Null，如果number 是未初始化的变量，则返回0。

说明一个数的绝对值是将正负号去掉以后的值。

例如，ABS(-1) 和ABS(1) 都返回1。

-------------------------------------------------------------------------- Abs 函数示例本示例使用Abs 函数计算数的绝对值。

Dim MyNumber MyNumber = Abs(50.3) ' 返回50.3。

MyNumber = Abs(-50.3) ' 返回50.3。

=================================================================== ======== Array 函数返回一个包含数组的Variant。

语法Array(arglist) 所需的arglist 参数是一个用逗号隔开的值表，这些值用于给Variant 所包含的数组的各元素赋值。

如果不提供参数，则创建一个长度为0 的数组。

说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。

在下面的示例中，第一条语句创建一个Variant 的变量A。

第二条语句将一个数组赋给变量A。

最后一条语句将该数组的第二个元素的值赋给另一个变量。

Dim A A = Array(10,20,30) B = A(2) 使用Array 函数创建的数组的下界受Option Base 语句指定的下界的决定, 除非Array 是由类型库（例如VBA.Array )名称限定。

如果是由类型库名称限定，则Array 不受Option Base 的影响。

注意没有作为数组声明的Variant 也可以表示数组。

除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。

尽管一个包含数组的Variant 和一个元素为Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。

-------------------------------------------------------------------------- Array 函数示例该示例使用Array 函数来返回一个包含Variant 的数组。

Dim MyWeek, MyDay MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") '返回值假设下界的设置为1（使用Option Base ' 语句）。

MyDay = MyWeek(2) 'MyDay 的值为"Tue"。

MyDay = MyWeek(4) 'MyDay 的值为"Thu"。

=================================================================== ======== Asc 函数返回一个Integer，代表字符串中首字母的字符代码。

语法Asc(string) 必要的string 参数可以是任何有效的字符串表达式。

如果string 中没有包含任何字符，则会产生运行时错误。

说明在非DBCS 系统下，返回值范围为0 –255 。

在DBCS 系统下，则为-32768 –32767。

注意AscB 函数作用于包含在字符串中的字节数据，AscB 返回第一个字节的字符代码，而非字符的字符代码。

AscW 函数返回Unicode 字符代码，若平台不支持Unicode，则与Asc 函数功能相同。

-------------------------------------------------------------------------- Asc 函数示例本示例使用Asc 函数返回字符串首字母的字符值（ASCII 值）。

Dim MyNumber MyNumber = Asc("A") ' 返回65。

MyNumber = Asc("a") ' 返回97。

MyNumber = Asc("Apple") ' 返回65。

=================================================================== ======== Atn 函数返回一个Double，指定一个数的反正切值。

语法Atn(number) 必要的number 参数是一个Double或任何有效的数值表达式。

说明Atn 函数的参数值(number) 为直角三角形两边的比值并返回以弧度为单位的角。

这个比值是角的对边长度除以角的邻边长度之商。

值的范围在-pi/2 和pi/2 弧度之间。

为了将角度转换为弧度，请将角度乘以pi/180。

为了将弧度转换为角度，请将弧度乘以180/pi。

注意Atn 是Tan 的反三角函数，Tan 的参数值为角度，返回直角三角形的两条边的比值。

不要将Atn 和余切函数混淆，余切函数值是正切函数值的倒数，cotangent = (1/tangent)。

-------------------------------------------------------------------------- Atn 函数示例本示例使用Atn 函数计算圆周率。

Dim pi pi = 4 * Atn(1) ' 计算圆周率。

按字母顺序排列::::: [C] =================================================================== ======== CBool 函数描述返回表达式，此表达式已转换为Boolean 子类型的Variant。

语法CBool(expression) expression 是任意有效的表达式。

说明如果expression 是零，则返回False；否则返回True。

如果expression 不能解释为数值，则将发生运行时错误。

下面的示例使用CBool 函数将一个表达式转变成Boolean 类型。

如果表达式所计算的值非零，则CBool 函数返回True；否则返回False。

-------------------------------------------------------------------------- 示例: Dim A, B, Check A = 5: B = 5 ' 初始化变量。

Check = CBool(A = B) '复选框设为True 。

A = 0 '定义变量。

Check = CBool(A) '复选框设为False 。

=================================================================== ======== CByte 函数描述返回表达式，此表达式已被转换为Byte 子类型的Variant。

语法CByte(expression) expression 参数是任意有效的表达式。

说明通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。

例如，在出现货币、单精度、双精度或整数运算的情况下，使用CByte 强制执行字节运算。

CByte 函数用于进行从其他数据类型到Byte 子类型的的国际公认的格式转换。

例如对十进制分隔符（如千分符）的识别，可能取决于系统的区域设置。

如果expression 在Byte 子类型可接受的范围之外，则发生错误。

下面的示例利用CByte 函数把expression 转换为byte: -------------------------------------------------------------------------- 示例: Dim MyDouble, MyByte MyDouble = 125.5678 ' MyDouble 是一个双精度值。

MyByte = CByte(MyDouble) ' MyByte 包含126 。

=================================================================== ======== CCur 函数描述返回表达式，此表达式已被转换为Currency 子类型的Variant。

语法CCur(expression) expression 参数是任意有效的表达式。

说明通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。

例如在整数运算的情况下，使用CCur 函数强制进行货币计算。

CCur 函数用于进行从其他数据类型到Currency 子类型的国际公认的格式转换。

例如，对十进制分隔符和千位分隔符的识别取决于系统的区域设置。

下面的示例使用CCur 函数将一个表达式转换成Currency 类型: -------------------------------------------------------------------------- 示例: Dim MyDouble, MyCurr MyDouble = 543.214588 ' MyDouble 是双精度的。

MyCurr = CCur(MyDouble * 2) '把MyDouble * 2 (1086.429176) 的结果转换为' Currency (1086.4292)。

=================================================================== ======== CDate 函数描述返回表达式，此表达式已被转换为Date 子类型的Variant。

语法CDate(date) date 参数是任意有效的日期表达式。

说明IsDate 函数用于判断date 是否可以被转换为日期或时间。