Variant变量一般会将其代表的数据子类型自动转换成合适的数据类型,但有时候,自动转换也会造成一些数据类型不匹配的错误.这时,可使用转换函数来强制转换数据的子类型.
函数 功能
Asc 函数 返回与字符串的第一个字母对应的 ANSI 字符代码。
Chr 函数 返回与指定的 ANSI 字符代码相对应的字符
Hex 函数 返回表示十六进制数字值的字符串。
Oct 函数 返回表示数字八进制值的字符串。
CStr 函数 返回表达式，该表达式已被转换为 字符串 子类型。
CDate 函数 返回表达式，此表达式已被转换为 日期 子类型。
CInt 函数 返回表达式，此表达式已被转换为 整数 子类型。
CLng 函数 返回表达式，此表达式已被转换为 长整数 子类型
CSng 函数 返回表达式，该表达式已被转换为 Single 子类型
CDbl 函数 返回表达式，此表达式已被转换为 Double 子类型
CBool 函数 返回表达式，此表达式已转换为 布尔 子类型
1、Asc 函数示例
下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:
Dim MyNumber
MyNumber = Asc("A") ‘’返回 65。
MyNumber = Asc("a") ‘’返回 97。
MyNumber = Asc("Apple") ‘’返回 65。
2、Chr 函数示例
下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:
Dim MyChar
MyChar = Chr(65) ‘’返回 A。
MyChar = Chr(97) ‘’返回 a。
MyChar = Chr(62) ‘’返回 >。
MyChar = Chr(37) ‘’返回 %。
3、Hex 函数示例
下面的示例利用 Hex 函数返回数字的十六进制数：
Dim MyHex
MyHex = Hex(5) ‘’ 返回 5。
MyHex = Hex(10) ‘’ 返回A。
MyHex = Hex(459) ‘’ 返回 1CB。
4、Oct 函数示例
下面的示例利用 Oct 函数返回数值的八进制数：
Dim MyOct
MyOct = Oct(4) ‘’ 返回 4。
MyOct = Oct(8) ‘’ 返回 10。
MyOct = Oct(459) ‘’ 返回 713。
5、 CStr 函数示例
<%num1=666StrWelcome="欢迎第"&CStr(num1)&"个来访者"%>
CStr将变量num1由整数子类型强制转换为字符串子类型
6、CDate 函数示例
MyDate = "October 19, 1962" ‘’ 定义日期。
MyShortDate = CDate(MyDate) ‘’ 转换为日期数据类型。
MyTime = "4:35:47 PM" ‘’ 定义时间。
MyShortTime = CDate(MyTime) ‘’ 转换为日期数据类型。
7、CInt 函数示例
Dim MyDouble, MyInt
MyDouble = 2345.5678 ‘’ MyDouble 是 Double。
MyInt = CInt(MyDouble) ‘’ MyInt 包含 2346。
8、CLng 函数示例
Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55 ‘’ MyVal1, MyVal2 是双精度值。
MyLong1 = CLng(MyVal1) ‘’ MyLong1 25427。
MyLong2 = CLng(MyVal2) ‘’ MyLong2 包含 25428 。
9、CBool 函数示例
Dim A, B, Check
A = 5: B = 5 ‘’ 初始化变量。
Check = CBool(A = B) ‘’复选框设为 True 。
A = 0 ‘’定义变量。
Check = CBool(A) ‘’复选框设为 False 。
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
