VBS脚本技术手册(1)

一、时间与日期函数

01：Date函数

例子：Msgbox date

将会显示“2009-03-13”

02：time函数

例子 ：Msgbox time

将显示“15:21:38”

03:now函数

例子Msgbox now

将显示“2009-03-13 15:23:13”

04：year(),month(),day(),hour(),minute(),second()函数，参数是时间表达式，

例子：Msgbox year(now)

将显示 2009

注意：当月份是个位数时不补零。

05：函数weekday( day，[first day of week])默认vbsunday

Weekday 函数返回如下值：                                 

06：monthname(month,[????])函数

month可以使数字月份比如monthname（3）

可选参数是显示完全名的开关，默认是false可以    是 tr

例子：Msgbox monthname(month(now))

将显示“三月”

07：weekdayname(weekday, [abbreviate,][ first day of week])

第二项为布尔型四缩写与否的开关，默认是false

第三项是星期的开始天

08：dateadd(interval, number, date)函数interval 参数可以有以下值：

可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。

例如：Msgbox DateAdd("m", 1, "31-Jan-2009")

将返回2009-2-28

09:DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])返回两个日期之间的时间间隔。

interval 参数可以有以下值：

interval必选项。字符串表达式表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。

date1, date2 必选项。日期表达式。用于计算的两个日期。

Firstdayofweek 可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。

Firstweekofyear 可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

10：DatePart(interval, date[, firstdayofweek[, firstweekofyear]])

返回给定日期的指定部分

二、数学函数

01：Abs()绝对值函数

02：Sin()，cos()，tan()，Atn()(反)三角函数

03:Log()自然对数是以 e 为底的对数

04:Rnd[(number)]随机数函数

参数

Rnd 函数返回一个小于 1 但大于或等于 0 的值

05：Sqr()平方根函数

06：Hex(number)将number转化为16进制数显示

oct（number）将number转化为8进制数显示

三、字符串处理函数

01：filter(array,string)返回在array中搜索包含string的那个元素赴欧在的整个字符串

例如：dim a

dim b(3)

b(0)="xxk"

b(1)="xx"

b(2)="xxkmnm"

a=filter(b,"xxk")

msgbox a(0)

msgbox a(1)

msgbox a(2)'

就此题目而言如果不注释掉则溢出出错，因为a只包含两个元素。

结果显示Xxk ，Xxkmnm

02：InStr([start开始位置默认1 ，]被查找str, 要查str[, compare])返回某字符串在另一字符串中第一次出现的位置。

例如：a=instr("mnmxxkmnm","xxk")

msgbox a

将输出4.

03:InStrRev(被查找str, 要查str[, compare])

返回某字符串从结尾数第一次出现的位置。

04:Join(array)把数组内字符组成一个长的字符串

MyArray(0) = "hello"
MyArray(1) = "xu"
MyArray(2) = "xiang"
MyArray(3) = "kai"
MyString = Join(MyArray)

则mystring输出helloxuxiangkai

05:LCase(string)把字符串中所有大写字母转化为小写的，其他字符不变

?se(string)把字符串中所有小写字母转化为大写的，其他字符不变

06:Left(string, length)

Right(string, length)返回指定数目的从字符串的左/右边算起的字符。

Dim MyString, LeftString
MyString = "VBSCript"
LeftString = Left(MyString, 3) 'LeftString 包含 "VBS"。

MSGBOX LeftString

Mid(string, start[, length])从字符串string中返回第star个数开始的lenth个字符

a=mid("1234567890",4,4)

msgbox a

将返回4567

07：Len(string)

Dim MyString
MyString = Len("VBSCRIPT") 'MyString 包含 8

08:Round(number[, 小数位数])返回按指定位数进行四舍五入的数值

pi= 3.14159

MyVar=Round(pi,2)

msgbox MyVar

将返回 3.14

09：Space(number)

返回由指定数目的空格组成的字符串

10：StrReverse(string1)

返回字符串，此字符串与指定字符串顺序相反

11：StrComp(string1, string2[, 0二进制1文本])

1大返回++1

2大返回--1

一样返回0

 四、类型转换函数

01：asc函数

Asc(string)返回与字符串的第一个字母对应的 ANSI 字符代码

Dim MyNumber
MyNumber = Asc("A")      '返回 65。
MyNumber = Asc("a")      '返回 97。
MyNumber = Asc("Apple")  '返回 65。

02：cbool函数

CBool(number)

如果number等于0则返回false，否则返回ture

03：cint函数

cint（string）

把string转换为int型

04：cstr函数

cstr（number）

把number转换为string型

 IsArray(varname)

IsDate(expression)

IsEmpty(expression)

IsNull(expression)

IsNumeric(expression)

是则返回ture否则返回false

 五、系统常数

1：颜色常数

因为这些常数是在 VBScript中设置, 您在应用之前不必定义它们. 您可在代码中任意处应用它们以表明说明值。

 2:日期和时间常数因为这些常数VBScript 被建立,您在使用它们之前不必定义.您可在代码中任意处使用它们以表示说明

3:MsgBox 常数下列常数与 MsgBox 函数一起使用，标识在消息框中出现的按钮、图标，并指定默认按钮。另外，还可以指定消息框的样式。因为这些常数在VBScript中被建立，您在使用之前不必定义它们。您可在代码中任意处使用它们以表示说明值。

下列常数与 MsgBox 函数一起使用，标识用户选定的按钮。仅当类型库中包含以下常数定义，且在您的工程文件中已经显式引用该类型库后，才允许使用这些常数。对于 VBScript，必须在代码中显式声明这些常数。

 4:日期格式常数因为这些常数在 VBScript 中被建立, 您在应用之前不必定义它们. 您可在代码中任意处使用它们以表示说明值.

5:字符串常。因为这些常数在 VBScript中被建立， 您在使用之前不必定义它们。 您可在代码中任意处使用它们以表示说明值。

6：三态常数，这些常数在VBScript中被建立，因此您在使用之前不必定义它们您可在代码中任意处使用它们表示说明值。