VB数据类型转换函数Word版.doc

一)类型转换类函数1. CType(X)[格式]：P=CBool(X) 将X转换为"布尔"(Boolean)类型P=CByte(X) 将X转换为"字节"(Byte)类型P=CCur(X) 将X转换为"金额"(Currency)类型P=CDate(X) 将X转换为"日期"(Date)类型P=CDbl(X) 将X转换为"双精度"(Double)类型P=CInt(X) 将X转换为"整型"(Integer)类型P=CLng(X) 将X转换为"长整型"(Long)类型P=CSng(X) 将X转换为"单精度"(Single)类型P=CStr(X) 将X转换为"字符串"(String)类型P=Cvar(X) 将X转换为"变体型"(Variant)类型P=CVErr(X) 将X转换为Error值[ 范例 ]：(1). CStr(13)+CStr(23) 数值转换成字符串后，用"+"号连接， 结果：1323(2). CInt("12")+12 字符串转换成整型后与12相加， 结果：24(3). P=CInt(True) 输出结果为-1 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0 (4). CBool(-0.001) 输出结果为True 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.2. Int(X),Fix(X)：取X的整数值[格式]：P=Int(X) 取<=X的最大整数值P=Fix(X) 取X的整数部分，直接去掉小数[范例]：(1) Int(-54.6) 结果为-55，取<=-54.6的最大整数(2) Fix(54.6) 结果为54，取整数并直接去掉小数(二)常用数学函数[格式]：1. Abs(N) 取绝对值例：Abs(-3.5) 结果：3.52. Cos(N) 余弦函数例：Cos(0) 结果：13. Exp(N) e为底的指数函数例：Exp(3) 结果：20.0684. Log(N) 以e为底的自然对数例：Log(10) 结果：2.35. Rnd[(N) 产生随机数例：Rnd 结果：0--1之间的数6. Sin(N) 正弦函数例：Sin(0) 结果：07. Sgn(N) 符号函数 说明：取正负号。

Y=Sgn(X) 既 X>0 则Y=1；X=0 则Y=0；X<0 则Y= -18. Sqr(N) 平方根例：Sqr(9) 结果：39. Tan(N) 正切函数例：Tan(0) 结果：010.Atn(N) 反切函数例：Atn(0) 结果：0[注意]：在三角函数中，以弧度表示一)字符串类函数：1. ASC(X)，Chr(X)：转换字符字符码[格式]：P=Asc(X) 返回字符串X的第一个字符的字符码P=Chr(X) 返回字符码等于X的字符[范例]：(1)P=Chr(65)输出字符A,因为A的ASCII码等于65(2)P=Asc("A")输出652. Len(X)：计算字符串X的长度[格式]：P=Len(X)[说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符[范例]：(1) 令X="" (空字符串)Len(X) 输出结果为0(2) 令X="abcd" Len(X) 输出结果为4(3) 令X="VB教程"Len(X) 输出结果为43. Mid(X)函数：读取字符串X中间的字符[格式]：P=Mid(X,n)由X的第n个字符读起，读取后面的所有字符P=Mid(X,n,m)由X的第n个字符读起，读取后面的m个字符。

[范例]：(1) X="abcdefg"P=Mid(X,5)结果为：P="efg"(2) X="abcdefg"P=Mid(X,2,4)结果为P="bcde"4. Replace： 将字符串中的某些特定字符串替换为其他字符串[格式]：P=Replace(X,S,R)[说明]：将字符串X中的字符串S替换为字符串R，然后返回[范例]：X="VB is very good"P=Replace(X,good,nice)输出结果为：P="VB is very nice"5. StrReverse：反转字符串[格式]：P=StrReverse(X)[说明]：返回X参数反转后的字符串[范例]：(1)X="abc"P=StrReverse(X)输出结果：P="cba"6. Ucase(X)，Lcase(X)：转换英文字母的大小写[格式]：P=Lcase(X)将X字符串中的大写字母转换成小写P=Ucase(X)将X字符串中的小写字母转换成大写[说明]：除了英文字母外，其他字符或中文字都不会受到影响[范例]：(1) 令 X="VB and VC"则Lcase(X)的结果为"vb and vc"，Ucase(X)的结果为"VB AND VC"7. InStr函数：寻找字符串[格式]：P=InStr(X,Y)从X第一个字符起找出Y出现的位置P=InStr(n,X,Y)从X第n个字符起找出Y出现的位置[说明]：(1) 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。

2) InStr(X,Y)相当于InStr(1,X,Y)3) 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回04) 若Y为空字符串，则返回0二)日期时间类函数：1. Year(X)，Month(X)，Day(X)：取出年，月，日[格式]：P=Year(X)取出X"年"部分的数值P=Month(X)取出X"月"部分的数值P=Day(X)取出X"日"部分的数值[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#2. Hour，Minute，Second函数：取出时，分，或秒[格式]：P=Hour(X)取出X"时"部分的数值P=Minute(X)取出X"分"部分的数值P=Second(X)取出X"秒"部分的数值[说明]：Hour的返回值是0---23之间[范例]：X=10:34:23P=Hour(X)Q=Minute(X)R=Second(X)则输出结果：P=10，Q=34，R=233. DateSerial函数：合并年，月，日成为日期[格式]：DateSerial(Y,M,D)其中Y是年份，M为月份，D为日期[说明]：(1) M值若大于12，则月份从12月起向后推算M-12个月；若小于1，则月份从1月起向后推算1-M个月。

2) 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日[范例]：P=DateSerial(2000,02,02)则结果为P=2000/02/024．TimeSerial函数：合并时，分，秒成为时间[格式]：P=TimeSerial(H,M,S)其中H为小时数，M为分钟数，S为秒数[说明]：推算原理同上面的DateSerial[范例]：P=TimeSerial(6,32,45)结果为：P=6:32:455．Date,Time,Now函数：读取系统的日期时间[格式]：P=Date()P=Time()P=Now()[说明]：这三个函数都无参数[范例]：若当前时间为2003年8月29日晚上19点26分45秒，则P=Now()结果为：P=2003-08-29 19:26:456．MonthName：返回月份名称[格式]：P=MonthName(X)[说明]：X参数可传入1---12，则返回值为"一月"、"二月"……，但是在英文Windows环境下，返回的是"January","February"……[范例]：P=MonthName(1)则P="一月"7．WeekdayName：返回星期名称[格式]：P=WeekdayName(X)[说明]：X参数可传入1—7，则返回值为"星期日"，"星期一"……，但是在英文windows环境下，返回的是"Sunday","Monday"……[范例]：P=WeekdayName(1)结果为：P="星期日" 函数名称 函数功能 Cbool(string) 转换为布尔值 Cbyte(string) 转换为字节类型的值 Ccur(string) 转换为货币类值 Cdate(string) 转换为日前类型的值 Cdbl(string) 转换为双精度值 Cint(string) 转换为整数值 Clng(string) 转换为长整型的值 Csng(string) 转换为单精度的值 Cstr(var) 转换为字符串值 Str(var) 数值转换为字符串 Val(string) 字符串转换为数值 ***************************************Abs(nmb) 返回数子的绝对值 Atn(nmb) 返回一个数的反正切 Cos(nmb) 返回一个角度的余炫值 Exp(nmb) 返回自然指数的次方值 Int(nmb)。