学习导航
- 日期时间函数
- 数值数组函数
- 判断函数
- 字符串函数
- 其他函数
5.1 VBScript 内置函数
在前面，我们介绍了函数的使用与建立方法，其实有很多函数是不用自己动手来建立的，VBScript 早就准备好了许多常用的函数来供您调用，下面就一一来说明一些常用的函数。
5.2 日期与时间函数
VBScript 提供了许多显示日期与时间的函数，如表:
| 函数 | 用途 |
| Now | 显示今天的日期与现在的时间 |
| Date | 显示今天（计算机系统）的日期 |
| Time | 显示现在(计算机系统)的时间 |
| Year | 显示本年的年份 |
| Month | 显示本月的月份 |
| Day | 显示今天的日期 |
| Hour | 显示现在的时间几点钟 |
| Minute | 显示现在的时间几点钟 |
| Second | 显示现在的时间几秒钟 |
<script language="vbs">
msgbox "现在是" & Now()
msgbox "今天的日期" & Date()
msgbox "现在的时间" & Time()
msgbox "今天的日期是" & Year(Date) & "年" & month(Date) & "月" &_ Day(Date) & Day(Date) & "日"
msgbox "现在的时间是" & Hour(Now) & "时" & Minute(Now) & "分" &_ Second(Now) & "秒"
</script>
这个例子中，now(),date(),time()这三个内置函数不需要传入参数，而year(),month(),day(),hour(),minute()，second()是需要传入参数的。
<script language="vbs">
SetTimeOut "Clock",1000
sub Clock()
H=Hour(Now)
M=Minute(Now)
S=Second(Now)
NowTime="现在时间是" & H & "点" & M & "分" & S & "秒"
NowT.InnerHtml=NowTime
SetTimeOut "Clock",1000
end sub
</script>
<center id="NowT"></center>
程序一开始会执行到SetTimeOut “Clock”,1000 ,这段程序代码的意思1秒之后执行子程序”Clock”,”SetTimeOut”这个语法可以让计算机上在隔一段时间后去执行某个子程序，它的格式如下：SetTimeOut “子程序名称”,时间
其中的时间是以千分之一秒为单位，也就是1秒钟，在1秒之后执行子程序“Clock”,所以写成SetTimeOut “Clock”,”1000”;执行子程序“Clock”时就会使用到时间函数将现在的时间分别存放在变量‘H’，‘M’，‘S’中，接着再用 NowT.InnerHtml方法将现在的时间写如网页里， InnerHtml也是浏览器提供的一种方法，她的用途将文字写到指定的HTML标记，前面的“NowT”就是指定要写入的HTML标记。
5.3 sqr()函数
sqr()函数可以返回参数的平方根!
<script language="vbs">
a=inputbox("请输入一个整数")
msgbox a & "的平方根为" & sqr(A)
</script>
5.4 abs()函数
abs()函数可以返回一个数的绝对值
<script language="vbs">
a=inputbox("请输入一个整数")
msgbox a & "的绝对值为" & abs(a)
</script>
5.5 IsNumeric() 函数
IsNumeric函数可以侦测传入的参数是否为数字，如果是数字，那么就会返回True，如果不是数字，则返回False
<script language="vbs">
a=inputbox("请输入一个整数")
do while not IsNumeric(a)
a=inputbox("您输入的不是整数，请重新输入！")
loop
msgbox a & "的绝对值为" & abs(a)
</script>
5.6 MsgBox() 函数
弹出一个信息框
格式： msgbox (“显示内容”,图标名称)
名称 值 说明
VbCritical 16 显示“重要信息”图标
VbQuestion 32 显示“询问符号”图标
VbExclamation 48 显示“警告符号”图标
VbInformation 64 显示“信息符号”图标
<script language="vbs">
msgbox "重要信息",vbcritical ‘16
msgbox "询问符号",vbquestion ‘32
msgbox "警告符号",vbexclamation ‘48
msgbox "信息符号",vbinformation ‘64
</script>
<script language="vbs">
msgbox "发现系统漏洞,请确定修补漏洞！",16,"金山毒霸提醒您"
</script>
5.7 msgbox (“显示内容”，按钮名称)
名称 值 说明
VbOKOnly 0 只显示“确定”按钮
VbOKCancel 1 只显示“确定”及“取消”按钮
VbAbortRetryIgnore 2 显示“终止”，“重试”及“忽略
VbYesNoCancel 3 显示“是”，“否”及“取消”
VbYesNo 4 显示“是”及“否”按钮
VbRetryCancel 5 显示“重试”及“取消”按钮
<script language="vbs">
msgbox "按钮范例",0
msgbox "按钮范例",1
msgbox "按钮范例",2
msgbox "按钮范例",3
msgbox "按钮范例",4
msgbox "按钮范例",5
</script>
<script language="vbs">
msgbox "图标＋按钮",3+32
</script>
5.8 判断用户所按下的按钮
按钮值
常数 值 按钮
VbOk 1 确定
VbCancel 2 取消
VbAbort 3 终止
VbRetry 4 重试
VbIgonre 5 略过
VbYes 6 是
VbNo 7 否
<script language="vbs">
do
do
a=inputbox("请输入一个数字","计算绝对值")
loop until IsNumeric(a)
msgbox a & "的绝对值" & abs(a)
loop until 2=msgbox ("是否要继续",1+32)
</script>
5.9 UBound()函数与LBound()函数
格式：UBound(数组名)
将数组名传入这两个个函数可以得到数组的上限和下限，在使用动态数组的时候经常会用到，因为使用动态数组通常都是根据当时的情况来配置大小，所以无法实现得知数组的大小，这时就必须使用到这个函数。
<script language="vbs">
dim a(3)
msgbox "a的数组的最低值为" & LBound(a)
msgbox "a的数组的最高值为" & UBound(a)
</script>
<script language="vbs">
dim a(3)
msgbox "a的数组的最低值为" & LBound(a)
msgbox "a的数组的最高值为" & UBound(a)
</script>
<script language="vbs">
dim a(10)
for i=Lbound(a) to Ubound(a)
total=total+i
next
msgbox "total=" & total
</script>
5.10 Int() 函数
这个函数必须传入一个参数，并将这个参数的整数部分返回。
<script language="vbs">
a=3.9359459
msgbox "a的整数为" & int(a)
</script>
5.12 Rnd()函数
这个函数可以产生介于0～1之间的随机数，使用加上Randomize来声明要使用随机数。由于Rnd()所产生的随机数时介于0～1之间的数，所以您必须用一些小技巧才可以使用，若要产生一个介于N~M之间的随机数，可以套用下面的公式：
Randomize
R=Int(Rnd()*M-N+1)+N
<script language="vbs">
randomize
msgbox int(rnd()*5-0+1)+0
</script>
5.13 Instr()函数
这个函数用来搜索字符串。
格式：Instr(“被搜索的字符串”,”欲搜索的字符串”)
第一个参数是被搜索的字符串，第二个是想要在第一个参数中找到的字符串，如果搜索到想要的字符串，就会返回字符串在被搜索的字符串中由左边算起的第几个字符。
<script language="vbs">
a=inputbox("请输入一个英文字母")
letter="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
b=instr(letter,ucase(a))
Msgbox a & "是英文字母的第" & b & "个字母"
</script>
有时候搜索并不想从第一个字符开始搜索
Instr(“开始搜索的文字”，“被搜索的字符串”，“欲搜索的字符串”)
<script language="vbs">
a="HAPPYHAPPYBOOK"
b=instr(a,"PY")
c=instr(5,A,"PY")
msgbox "b=" & b & " c=" & c
</script>
5.14 Len()函数
获取字符串的长度 格式：Len("字符串")
<script language="vbs">
a=inputbox("HAPPY")
b=len(a)
msgbox "您输入的字符串长度为：:" & b
</script>
<script language="vbs">
do while len(A)<>1
a=inputbox("请输入一个英文字母")
loop
letter="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
b=instr(letter,ucase(a))
msgbox a & "是英文字母的第" & b & "个字"
</script>
5.15 InstrRev()函数
InstrRev(“被搜索的字符串”，“欲搜索的字符串”，开始位的置)
它和 Instr 的区别就是一个是从头开始搜索，一个从后开始
<script language="vbs">
a="VBScript IS EASY"
b=InstrRev(a,"S")
c=InstrRev(a,"S",5)
msgbox b
msgbox c
</script>
5.16 Hex(),Oct()函数
十进制转换成十六进制和八进制
<script language="vbs">
a=10000
b=hex(A)
c=oct(A)
msgbox a & "的十六进制是" & b
msgbox a & "的八进制是" & c
</script>
5.17 TRIM()函数
去掉字符串两边的空格
<script language="vbscript">
a=" VBSCRIPT "
msgbox a
a=trim(a)
msgbox a
</script>
5.18 Mid(),left(),right()函数
left(“字符串”,取几个字)
right(“字符串”，取几个字)
mid(“字符串”,第几个字开始，取几个字)
<script language="vbs">
a="VBSCRIPT"
b=left(a,5)
c=right(a,4)
d=mid(a,3,3)
msgbox "b=" & b & " c=" & c & " d=" & d
</script>
5.19 Replace()函数
Replace(“字符串”，“要被替代的字”，“替代后的字”)
<script language="vbs">
a="SSSSSSSYDDDDDDDDYJ"
msgbox a
b=replace(a,"Y","A")
msgbox b
</script>
5.20 ASC()函数 CHR()函数
一个是将文字转化为ASCII
一个是将ASCII转化为文字
<script language="vbs">
a=inputbox("请输入一个文字")
msgbox asc(a)
b=inputbox("请输入一个数字")
msgbox chr(b)
</script>
5.21 String()函数
重复字符串函数，这个函数要传入两个参数，第一个参数必须是数值，代表所要重复的次数，第二个参数只能是文字，代表所要重复的字。
格式: Sring(重复几次，“要重复的字”)
<script language="vbs">
a=string(5,"B")
msgbox a
</script>
5.22 Filter()函数
这个数组搜索函数可以搜索数组的数据，将搜索到数据的数组组成一个新数组返回。
格式：Filter(要搜索的数组，“要搜索的字”)
<script language="vbs">
dim a(3)
a(0)="HAPPYWIN"
a(1)="HAPPYLEARN"
a(2)="LEARN"
a(3)="LEARNHAPPY"
b=filter(a,"HAPPY")
for i=0 to ubound(b)
msg=msg & "b(" & i & ")=" & b(i) & vbcrlf
next
msgbox msg
</script>
5.23 datepart("w",date())
一个星期几的返回值
日期 返回值
星期日 1
星期一 2
星期二 3
星期三 4
星期四 5
星期五 6
星期六 7
<script language="vbs">
msg=datepart("w",date())
Msgbox msg
</script>