2024年6月8日发(作者：)

VB Script转换函数

返回与字符串的第一个字母对应的ANSI字符代码。

Asc(string)

string参数是任意有效的字符串表达式。如果string参数未包含字符，

则将发生运行时错误。

说明下面例子中,Asc返回每一个字符串首字母的ANSI字符代码：

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

MyNumber=Asc("Apple")'返回65。注意AscB函数和包含字节数据的字符串一

起使用。AscB不是返回第一个字符的字符代码，而是返回首字节。AscW是为使

用Unicode字符的32位平台提供的。它返回Unicode(宽型)字符代码，因此可

以避免从ANSI到Unicode的代码转换。

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。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函数返回表达式：