VB中数据的强制类型转换怎么实现
推荐于2017-09-12 · 知道合伙人软件行家
VB使用类型转换函数来实现强制将一个表达式转换成某种特定数据类型。
类型转换函数,每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
CStr(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。
CBool 函数示例
本示例使用 CBool 函数来将一表达式转成 Boolean
值。如果表达式的结果为非零的值,CBool 返回 True;否则返回 False。
Dim A, B, Check
A = 5: B = 5 ' 设置变量初值。
Check = CBool(A = B) ' Check 的值为 True。
A = 0 ' 定义变量。
Check = CBool(A) ' Check 的值为 False。
CByte 函数示例
本示例使用 CByte 函数将一表达式转成 Byte。
Dim MyDouble, MyByte
MyDouble = 125.5678 ' MyDouble 为Double(双精度)。
MyByte = CByte(MyDouble) ' MyByte 值为 126。
...
CDate 函数示例
本示例使用 CDate 函数将字符串转换成
Date。一般说来,字符串格式的日期与时间硬编码(如示例中所示)并不好。较好的做法是使用日期原义表达式和时间的原义表达式(如
#2/12/1969#,#4:45:23 PM#)。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' 定义日期。
MyShortDate = CDate(MyDate) ' 转换为 Date 数据类型。
MyTime = "4:35:47 PM" ' 定义时间。
MyShortTime = CDate(MyTime) ' 转换为 Date 数据类型。
Str()