VB6常用函数大全.pdf

《VB6常用函数大全.pdf》由会员分享，可在线阅读，更多相关《VB6常用函数大全.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB 常用函数大全现在的编程软件像VB，C+等，大多自带功能很强的函数库，可以很省力得完成各种功能。很多时候，想不起来实现某个功能的函数或函数格式，导致编程大费周折。作为一个编程人员，我对此深有体会。因此，特地准备了几期VB 常用函数的介绍，供大家学习或参考。有说的不当之处，也欢迎在本网站的论坛中提出，大家学习。（一）类型转换类函数1、CType(X)格式：P=CBool(X)将 X 转换为“布尔”（Boolean）类型P=CByte(X)将 X 转换为“字节”（Byte）类型P=CCur(X)将 X 转换为“金额”（Currency）类型P=CDate(X)将 X 转换为“日期”（Date）

2、类型P=CDbl(X)将 X 转换为“双精度”（Double）类型P=CHr(X)返回字符码对应的字符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 字符串转换成

3、整型后与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，取 0 则 Y=1；X=0 则 Y=0；X0 则 Y=-1 8、Sqr(N)平方根例：Sq

4、r(9)结果：3 9、Tan(N)正切函数例：Tan(0)结果：0 10、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”)输出 65 2、Len(X)：计算字符串X 的长度格式：P=Len(X)说明：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。范例：(1)令

5、 X=”(空字符串)Len(X)输出结果为0(2)令 X=”abcd”Len(X)输出结果为4(3)令 X=”VB教程”Len(X)输出结果为4 3、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)说明

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

7、受到影响。范例：（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。（二）日期时间类函数：1、Year(

8、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:23 P=Hour(X)Q=Minute(X)R=Seco

9、nd(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=2000/02/02 4TimeSerial 函数：合并时，分，秒成为时间格式：P=TimeSerial

10、(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=”星期日”