vb字符串函数

1、vb字符串函数:VB函数来源: 发布时间:星期日, 2008年10月19日 浏览:301次 评论:0（一）类型转换类函数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）

2、类型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)' 数值转换成字符串

3、后，用"+"号连接， 结果：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的

4、最大整数值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

5、) 正弦函数例：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

6、码等于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个字

7、符读起，读取后面的所有字符。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"'

8、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字符串中的小写字母转换成大写说明：除了英文字母外，其他字符或中文字都不会受到影

9、响。范例：（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，则都返回0。（4） 若Y为空字符串，则返回0。

10、日期时间类函数：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"秒&

11、quot;部分的数值说明：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/024TimeSerial函数：合并时，分，秒成为时间格式：P=TimeSerial(H,M,S)其中H为小时数，M为分钟数，S为秒数说明：推算原理同