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()函数来检查变量类型.

转载于:https://www.cnblogs.com/yeye518/archive/2008/02/28/2231803.html