vba中数据类型转换

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( e

2、xpression )必要的 expression 参数 可以是任何 字符用表达式 或数值表达式返回类型函数名称决定返回类型，如下所示:函数返回类型expression参数范围CBoolBoolean任何启效的子符串或数值表iA式。CByteByte0 至 255。CCurCurrency-922,337,203,685,477.5808 至922,337,203,685,477.5807 。CDateDate任何有效的日期表达式。CDblDouble负数从-1.79769313486231E308 至-4.94065645841247E-324 ;正数从4.94065645841247E-3

3、24 至1.79769313486232E30&CDecDecimal零变比数值，即无小数位数值，为+/-79,228,162,514,264,337,593,543,950,335。对于28位小数的数值，范围则为+/-7.9228162514264337593543950335;最小的可能非零值是 0.0000000000000000000000000001。CIntInteger-32,768至32,767，小数部分四舍五入。CLngLong-2,147,483,648 至 2,147,483,647 ,小数部分四舍五入。CLngLngLongLong-9,223,372,036,

4、854,775,808至 U9,223,372,036,854,775,807 ;小数部分四舍五入。（只在64位平台上有效。）CLngPtrLongPtr在32位系统上，为-2,147,483,648至U2,147,483,647 ;在64 位系统上，为-9,223,372,036,854,775,808至 U9,223,372,036,854,775,807 ;对于 32 位和 64 位系统，小数部分四舍五入。CSngSingle负数为-3.402823E38 至-1.401298E-45 ;正数为 1.401298E-45 至 3.402823E38。CStrString依据express

5、ion 参数返回Cstr。CVarVariant右为数值，则范围与 Double相同；若/、为数值， 则范围与String 相同。说明如果传递给函数的expression超过转换目标数据类型的范围，将发生错误 通常，在编码时可以使用数据类型转换函数， 来体现某些操作的结果应该表示为 特定的数据类型，而不是缺省的数据类型。例如，当单精度、双精度或整数运算 发生的情况下，使用 CCur来强制执行货币运算。应该使用数据类型转换函数来代替 Val,以使国际版的数据转换可以从一种数据 类型转换为另一种。例如，当使用 Ccur时，不同的小数点分隔符、千分位分隔 符和各种货币选项，依据系统的区域设置都会被妥

6、善识别。当小数部分恰好为0.5时，Cint和CLng函数会将它转换为最接近的偶数值。例如，0.5转换为0、1.5转换为2。Cint和CLng函数不同于Fix和Int函 数，Fix和Int函数会将小数部分截断而不是四舍五入。并且 Fix和Int函 数总是返回与传入的数据类型相同的值。使用IsDate函数，可判断date是否可以被转换为日期或时间。Cdate可用来 识别日期文字和时间文字,以及落入可接受的日期范围内的数值。 当转换一个数 字成为日期时，是将整数部分转换为日期，小数部分转换为从午夜起算的时间。CDate依据系统上的区域设置来决定日期的格式。 如果提供的格式为不可识别的 日期设置，则不

7、能正确判断年、月、日的顺序。另外，长日期格式，若包含有星 期的字符串，也不能被识别。注意CDec函数不能返回独立的数据类型, 经被转换为Decimal子类型。CBool函数示例而总是返回一个Variant ,它的值已此示例使用CBool函数将表达式转换为CBool返回True；否则，返回 False。Boolean 0如果表达式的值不为零，则Dim A, B, CheckA = 5:B = 5 '初始化变量Check = CBool( A = B ) ' Check 包含 True 。定义变量Check = CBool( A) ' Check 包含 FalseCByte

8、 函数示例此示例使用 CByte 函数将表达式转换为 Byte 。Dim MyDouble, MyByteMyDouble = 125.5678 ' MyDouble 为 Double 。MyByte = CByte( MyDouble) ' MyByte 包含 126 。CCur 函数示例此示例使用 CCur 函数将表达式转换为 Currency 。Dim MyDouble, MyCurrMyDouble = 543.214588 ' MyDouble 为 Double 。MyCurr = CCur(MyDouble * 2 ) ' 将 MyDouble *

9、2 的结果' (1086.429176) 转换为' Currency (1086.4292)。CDate 函数示例此示例使用 CDate 函数将字符串转换为 Date 。 通常， 建议不要将日期和时间硬编码为字符串(如此示例中所示)。请改为使用日期文字和时间文字，如#2/12/1969# 和 #4:45:23 PM# 。Dim MyDate, MyShortDate, MyTime, MyShortTimeMyDate = "February 12, 1969" ' 定义日期。转换为 Date 数据类型。MyShortDate = CDate( My

10、Date)MyTime = "4:35:47 PM定义时间。转换为 Date 数据类型。MyShortTime = CDate( MyTime)CDbl 函数示例此示例使用 CDbl 函数将表达式转换为 Double 。Dim MyCurr, MyDoubleMyCurr = CCur(234.456784) ' MyCurr 为 Currency 。MyDouble = CDbl( MyCurr * 8.2 * 0.01) ' 转换结果为Double。CDec 函数示例此示例使用CDec函数将数字值转换为Decimal。Dim MyDecimal, MyCurrMy

11、Curr = 10000000.0587 ' MyCurr 为 Currency 。MyDecimal = CDec(MyCurr) ' MyDecimal 为 Decimal 。CInt 函数示例此示例使用 CInt 函数将值转换为 Integer 。Dim MyDouble, MyIntMyDouble = 2345.5678 ' MyDouble 为 Double 。MyInt = CInt( MyDouble) ' MyInt 包含 2346 。CLng 函数示例 此示例使用 CLng 函数将值转换为 LongDim MyVal1, MyVal2, My

12、Long1, MyLong2MyVal1 、 MyVal2 为包含 25427包含 25428 。MyVal1 = 25427.45:MyVal2 = 25427.55Double。MyLong1 = CLng(MyVal1) ' MyLong1MyLong2 = CLng(MyVal2) ' MyLong2CSng 函数示例此示例使用 CSng 函数将值转换为 SingleDim MyDouble1, MyDouble2, MySingle1, MySingle2' MyDouble1 、 MyDouble2 为 Double 。MyDouble1 = 75.3421

13、115:MyDouble2 = 75.3421555MySingle1 = CSng(MyDouble1) ' MySingle1包含75.34211 。MySingle2 = CSng(MyDouble2) ' MySingle2包含75.34216 。CStr 函数示例此示例使用 CStr 函数将数字值转换为 String 。Dim MyDouble, MyStringMyDouble = 437.324 ' MyDouble 为 Double 。MyString = CStr( MyDouble) ' MyString 包含 "437.324" 。CVar 函数示例此示例使用 CVar