1、（一）类型转换类函数 cstr()数值转换成字符串val()字符串转换成数值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转换为“单精
2、度” （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.
3、001) 输出结果为 True 将数值转换为布尔型时，等于 0的数值将得到 False，不等于 0的数值得到 True. 2. Int(X),Fix(X)：取 X的整数值 格式： P=Int(X) 取0 则 Y=1；X=0 则 Y=0；X0 则 Y= -1 8. Sqr(N) 平方根 例：Sqr(9) 结果：3 9. Tan(N) 正切函数 例：Tan(0) 结果：0 10.Atn(N) 反切函数 例：Atn(0) 结果：0 注意：在三角函数中，以弧度表示。 (一)字符串类函数： 1. ASC(X)，Chr(X)：转换字符字符码 格式： P=Asc(X) 返回字符串 X的第一个字符的字符码 P
4、=Chr(X) 返回字符码等于 X的字符 范例： (1)P=Chr(65) 输出字符 A,因为 A的 ASCII码等于 65 (2)P=Asc(“A”) 输出 65 Trim(X)去除该字串符的头尾空格2. 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) 输出结果为 4 3. Mid(X)函数：读取字符串
5、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
6、) 输出结果为：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
7、” ，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。 InStrRev函数:返回字串符最后一次出现的位置格式P=InStrRev(字串符,查找字串符,起始位置)
8、日期时间类函数： 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之间 范例：
9、 X=10:34:23 P=Hour(X) Q=Minute(X) R=Second(X) 则输出结果：P=10，Q=34，R=23 3. 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=
10、2000/02/02 4TimeSerial 函数：合并时，分，秒成为时间 格式：P=TimeSerial(H,M,S) 其中 H为小时数，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，则返回值为“一月” 、 “二月”，但是在英文 Windows环境下，返回的是”January”,”February” 范例： P=MonthName(1) 则 P=“一月” 7WeekdayName：返回星期名称 格式：P=WeekdayName(X) 说明：X 参数可传入 17，则返回值为“星期日” ， “星期一”，但是在英文 windows环境下，返回的是”Sunday”,”Monday” 范例： P=WeekdayName(1) 结果为：P=”星期日” 标题 VB常用函数辑
