中数据类型转换

1、类型转换函数请参阅 示例 特性 每个函数都可以强制将一个表达式转换成某种特定数据类型。语法CBool(expression) CByte(expression) CCur(expression) CDate(expression) CDbl(expression) CDec(expression) CInt(expression) CLng(expression) CLngLng(expression)（只在 64 位平台上有效。）CLngPtr(expression)CSng(expression) CStr(expression) CVar(expression) CStr(express

2、ion) 必要的 expression 参数可以是任何字符串表达式或数值表达式。返回类型函数名称决定返回类型，如下所示：函数返回类型expression 参数范围CBool Boolean任何有效的字符串或数值表达式。CByte Byte0 至 255。CCurCurrency-922,337,203,685,477.5808 至922,337,203,685,477.5807。CDateDate任何有效的日期表达式。CDblDouble 负数从 -1.79769313486231E308 至 -4.94065645841247E-324；正数从 4.94065645841247E-324 至

3、 1.79769313486232E308。CDecDecimalCIntInteger-32,768 至 32,767，小数部分四舍五入。CLngLong-2,147,483,648 至 2,147,483,647，小数部分四舍五入。CLngLngLongLong-9,223,372,036,854,775,808 到 9,223,372,036,854,775,807；小数部分四舍五入。（只在 64 位平台上有效。）CLngPtrLongPtr在 32 位系统上，为 -2,147,483,648 到 2,147,483,647；在 64 位系统上，为 -9,223,372,036,854,

4、775,808 到 9,223,372,036,854,775,807；对于 32 位和 64 位系统，小数部分四舍五入。 CSngSingle负数为 -3.402823E38 至 -1.401298E-45；正数为 1.401298E-45 至 3.402823E38。CStrString依据 expression 参数返回 Cstr。CVarVariant若为数值，则范围与 Double 相同；若不为数值，则范围与 String 相同。说明如果传递给函数的 expression 超过转换目标数据类型的范围，将发生错误。通常，在编码时可以使用数据类型转换函数，来体现某些操作的结果应该表示为特

5、定的数据类型，而不是缺省的数据类型。例如，当单精度、双精度或整数运算发生的情况下，使用 CCur 来强制执行货币运算。应该使用数据类型转换函数来代替 Val，以使国际版的数据转换可以从一种数据类型转换为另一种。例如，当使用 Ccur 时，不同的小数点分隔符、千分位分隔符和各种货币选项，依据系统的区域设置都会被妥善识别。当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数值。例如，0.5 转换为 0、1.5 转换为 2。Cint 和 CLng 函数不同于 Fix 和 Int 函数，Fix 和 Int 函数会将小数部分截断而不是四舍五入。并且 Fix 和 Int 函数

6、总是返回与传入的数据类型相同的值。使用 IsDate 函数，可判断 date 是否可以被转换为日期或时间。Cdate 可用来识别日期文字和时间文字，以及落入可接受的日期范围内的数值。当转换一个数字成为日期时，是将整数部分转换为日期，小数部分转换为从午夜起算的时间。CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。另外，长日期格式，若包含有星期的字符串，也不能被识别。注意 CDec 函数不能返回独立的数据类型，而总是返回一个 Variant，它的值已经被转换为 Decimal 子类型。CBool 函数示例此示例使用 CBool

7、函数将表达式转换为 Boolean。如果表达式的值不为零，则 CBool 返回 True；否则，返回 False。Dim A, B, CheckA = 5:B = 5 初始化变量。Check = CBool(A = B) Check 包含 True。A = 0 定义变量。Check = CBool(A) Check 包含 False。CByte 函数示例此示例使用 CByte 函数将表达式转换为 Byte。Dim MyDouble, MyByteMyDouble = 125.5678 MyDouble 为 Double。MyByte = CByte(MyDouble) MyByte 包含 12

8、6。CCur 函数示例此示例使用 CCur 函数将表达式转换为 Currency。Dim MyDouble, MyCurrMyDouble = 543.214588 MyDouble 为 Double。MyCurr = CCur(MyDouble * 2) 将 MyDouble * 2 的结果 (1086.429176) 转换为 Currency (1086.4292)。CDate 函数示例此示例使用 CDate 函数将字符串转换为 Date。通常，建议不要将日期和时间硬编码为字符串（如此示例中所示）。请改为使用日期文字和时间文字，如 #2/12/1969# 和 #4:45:23 PM#。Di

9、m MyDate, MyShortDate, MyTime, MyShortTimeMyDate = February 12, 1969 定义日期。MyShortDate = CDate(MyDate) 转换为 Date 数据类型。MyTime = 4:35:47 PM 定义时间。MyShortTime = CDate(MyTime) 转换为 Date 数据类型。CDbl 函数示例此示例使用 CDbl 函数将表达式转换为 Double。Dim MyCurr, MyDoubleMyCurr = CCur(234.456784) MyCurr 为 Currency。MyDouble = CDbl(

10、MyCurr * 8.2 * 0.01) 转换结果为 Double。CDec 函数示例此示例使用 CDec 函数将数字值转换为 Decimal。Dim MyDecimal, MyCurrMyCurr = 10000000.0587 MyCurr 为 Currency。MyDecimal = CDec(MyCurr) MyDecimal 为 Decimal。CInt 函数示例此示例使用 CInt 函数将值转换为 Integer。Dim MyDouble, MyIntMyDouble = 2345.5678 MyDouble 为 Double。MyInt = CInt(MyDouble) MyIn

11、t 包含 2346。CLng 函数示例此示例使用 CLng 函数将值转换为 Long。Dim MyVal1, MyVal2, MyLong1, MyLong2MyVal1 = 25427.45:MyVal2 = 25427.55 MyVal1、MyVal2 为 Double。MyLong1 = CLng(MyVal1) MyLong1 包含 25427。MyLong2 = CLng(MyVal2) MyLong2 包含 25428。CSng 函数示例此示例使用 CSng 函数将值转换为 Single。Dim MyDouble1, MyDouble2, MySingle1, MySingle2 MyDouble1、MyDouble2 为 Double。MyDouble1 = 75.3421115:MyDouble2 = 75.3421555MySingle1 = CSng(MyDouble1) MySingle1 包含 75.34211。MySingle2 = CSng(MyDouble2) MySingle2 包含 75.34216。CStr 函数示例此示例使用 CStr 函数将数字值转换为 String。Dim MyDouble, MyStringMyDouble = 437.324 MyDoub