VB数据类型转换函数

VB数据类型转换函数

Str (x) 将数值数据x转换成字符串

Val(x) 将字符串x中的数字转换成数值

Chr(x) 返回以x为ASCII码的字符

Asc(x) 给出字符x的ASCII码值，十进制数

Cint(x) 将数值型数据x的小数部分四舍五入取整

Int(x) 取小于等于x的最大整数

Fix(x) 将数值型数据x的小数部分舍去

CBool(x) 将任何有效的数字字符串或数值转换成逻辑型

CByte(x) 将0-255之间的数值转换成字节型

CDate(x) 将有效的日期字符串转换成日期

CCur(x) 将数值数据x转换成货币型

Round(x，N) 在保留N位小数的情况下四舍五入取整

CStr(x) 将x转换成字符串型

CVar(x) 将数值型数据x转换成变体型

CSng(x) 将数值数据x转换成单精度型

CDbl(x) 将数值数据x转换成双精度型

例如,,可以使用cdbl()函数来将变量转换成双精度型.大家看看这段代码:

Private Sub Form_Load()

Dim z_temp As Integer

z_temp = 20

Debug.Print "z_temp is" & TypeName(z_temp) & z_temp

Debug.Print "afterchange, z_temp is " & TypeName(CDbl(z_temp)) & z_temp1

End Sub

在vb中,有时候辉自动转换数据类型,例如:

Private Sub Form_Load()

Dim a1 As Integer

Dim a2 As Integer

a1 = 2

a2 = 6

Debug.Print a1 / a2

End Sub

尽管我们已经声明了变量类型都是整数型,但是,我们运行后看到的值却是.333333333333333 双精度型数据,如果我们已知a1/a2仅仅是货币计算的话....那么,我们采用CCur()函数:

Debug.pring CCur(a1 / a2)

就可以了..

字符串和其他数据类型的转换是最重要的,以后我们会说明的..

除了转换外,我们可以用VarType()和TypeName()函数来检查变量类型.