VB数据类型转换函数

1、(一类型转换类函数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转换为&qu

2、ot;长整型"(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=CIn

3、t(True' 输出结果为-1' 布尔值与数值的转换时要注意,布尔值只有True和False,其中True在内存中为-1,False 存为0' 输出结果为True' 将数值转换为布尔型时,等于0的数值将得到False,不等于0的数值得到True.2. Int(X,Fix(X:取X的整数值格式:P=Int(X ' 取<=X的最大整数值P=Fix(X ' 取X的整数部分,直接去掉小数范例:' 结果为54,取整数并直接去掉小数(二常用数学函数格式:1. Abs(N 取绝对值2. Cos(N 余弦函数例:Cos(0 结果:13. Exp(N

4、 e为底的指数函数4. Log(N 以e为底的自然对数5. 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的第一个字符的字符码

5、P=Chr(X 返回字符码等于X的字符范例:(1P=Chr(65'输出字符A,因为A的ASCII码等于65(2P=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(

6、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输

7、出结果为:P="VB is very nice"5. StrReverse:反转字符串格式:P=StrReverse(X说明:返回X参数反转后的字符串范例:(1X="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

8、的结果为"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,则都返回0。(4 若Y为空字符串,则返回0。(二日期时间类函数:1. Year(X,Month(X,Day(X:取出年,月,日格式:P=Year(X取出X&q

9、uot;年"部分的数值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(XQ=Minute(XR=Seco

10、nd(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/024TimeSerial 函数：合并时，分，秒成为时间 格式：P=TimeSerial(H,M,S 其中 H 为小时数，

11、M 为分钟数，S 为秒数 说明：推算原理同上面的 DateSerial 范例： P=TimeSerial(6,32,45 结果为：P=6:32:45 5Date,Time,Now 函数：读取系统的日期时间 格式： P=Date( P=Time( P=Now( 说明：这三个函数都无参数 范例： 若当前时间为 2003 年 8 月 29 日晚上 19 点 26 分 45 秒，则 P=Now( 结果为：P=2003-08-29 19:26:45 6MonthName：返回月份名称 格式：P=MonthName(X 说明： X 参数可传入 1-12， 则返回值为"一月"、 &quo

12、t;二月"， 但是在英文 Windows 环境下， 返回的是"January","February" 范例： P=MonthName(1 则 P="一月" 7WeekdayName：返回星期名称 格式：P=WeekdayName(X 说明：X 参数可传入 17，则返回值为"星期日"，"星期一"，但是在英文 windows 环 境下，返回的是"Sunday","Monday" 范例： P=WeekdayName(1 结果为：P="星期日&

13、quot; 函数名称 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 部份 8.4->9 Fix(nmb 8.4->8 Formatpercent(表达式 Hex(nmb Log(nmb Oct(nmb Rnd 的随机数 Sgn(nmb Sin(nmb

14、Sqr(nmb Tan(nmb Asc(string Chr(charcode Instr(string,searchstr string 是字符串，searchstr 是被搜索的字符串 InstrRev(string,searchstr Lcase(var Left(string,nmb 字符串 Len(string Ltrim(string Filter(inputstrings,value 符串组，value 是在数组中寻找的字符 Rtrim(string Trim(string Mid(string,start,len 转换为货币类值 转换为日前类型的值 转换为双精度值 转换为整数值

15、转换为长整型的值 转换为单精度的值 转换为字符串值 数值转换为字符串 字符串转换为数值 返回数子的绝对值 返回一个数的反正切 返回一个角度的余炫值 返回自然指数的次方值 返回数字的整形（进位） 返回数字的整形（舍去）部份 返回百分比 返回数据的 16 进制数 返回自然对数 返回数字的 8 进制数 返回大于 “0” 而小于 “1” 判断一个数字的正负号 返回角度的正铉值 返回数字的二次方根 返回一个数的正切值 返回 ASCII 字符串 根据字符代码返回字符 返回被搜索字符串的第一个字符位置， 同上，只是从右面开始搜索 把字符串变为小写 从 string 中返回从左面开始的 nmb 个 返回字符串

16、的长度 截去字符串左边的空格 返回字符串数组的字集，Inputstrings 是字 截去字符串右边的空格 截去字符串前后空格 在 string 中返回从 start 位置开始的 len 个字符 Replace(string,find,withstr 在字符串 string 中，用 withstr 来替换 find 字符 串 Right(string,nmb 从 string 中返回从右面开始的 nmb 个字 符串 Space(nmb 返回指定空格的字符串 StrComp(string1,string2 比较两个字符串 Ucase(string 把字符串变为大写 * Date( 返回当前系统日期

17、 DateAdd(interval,nmb,date 用一个基础时间返回指定增加了时间间隔的 日期，interval 是间隔类型，yyyy年，m月，d日，h小时，n分。 DateDiff(interval,nmb1,nmb2 返回两个时间间隔，interval 的意思同上 Datevalue(date 发挥 Date 中的日期部份 Day(date 返回天数 FormatDatetime(date 返回格式化为日期的表达式 Hour(time 返回时间的小时数 Minute(time 返回时间的分钟数 Month(date 返回日期中的月份 Now( 返回系统的日期和时间 Second(time 返回时间中的秒数 Time( 返回系统的当前时间 Weekday(date 返回星期几 WeekdayName(date 返回星期几的中文名 Year(date 返回年份 IsArray(var 判断一个变量是否是数组 IsDate(var 判断一个变量是否是日期 IsNull(var 判断一个变量是否为空