'1)Abs Function 'Returns the absolute value of a number Dim VNum VNum = Abs(-123.44) MsgBox VNum '2)ArrayFunction '返回包含在一个数组里的变量值 Dim anyA anyA = Array("V1","V2","V3") MsgBox anyA(0) '在过程级中声明动态数组变量并分配或重新分配存储空间。 ReDim A(5) A(4)="ReAllot" MsgBox A(4) '3)Asc Function '返回字母的 ANSI 码 'Dim VNum VNum=Asc("A") msgBox VNum '4)Chr Function '返回与指定的 ANSI 字符代码相对应的字符。 Dim Vchar Vchar = Chr(65) MsgBox Vchar '5)DateDiff Function 'Return the number of intervals between two dates. Dim Date1,Date2,x Date1 = #10-10-09# Date2 = #10-10-11# x= DateDiff("yyyy",Date1,Date2)'Difference in Years MsgBox x Date1 = #10-10-09# Date2 = #10-10-11# x= DateDiff("q",Date2)'Difference in Qarters MsgBox x Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("m",Date2) MsgBox x 'Differnce in Months Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("w",Date2) MsgBox x 'Differnce in weeks Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("d",Date2) MsgBox x 'Differnce in days Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("h",Date2) MsgBox x 'Differnce in Hours Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("n",Date2) MsgBox x 'Differnce in Minutes Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("s",Date2) MsgBox x 'Differnce in Seconds Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("y",Date2) MsgBox x 'Differnce in day of years Date1=#10-10-09# Date2=#10-10-11# x=DateDiff("a",Date2) MsgBox x 'Error Date1=#10-10-09# Date2=#10-10-11# x=DateDiff(Date1,Date2) MsgBox x 'Error '6)Hour Function '返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时 Dim MyTime,MyHour MyTime = Now MyHour = Hour(MyTime) ' MyHour 包含 ' 代表当前时间的数值。 MsgBox MyHour '7)Join Function '返回字符串值，其中包含了连接到一起的数组的所有元素，元素由指定的分隔符分隔开来。 Dim mystring,myarray(3) myarray(0)="Lundun *" myarray(1)="bali " myarray(2)="shanghai" mystring=Join(MyArray) msgBox mystring '8)Time Function '返回 Date 子类型 Variant，指示当前系统时间。 Dim MyTime MyTime = Time MsgBox MyTime '9)VarType Function '仅当类型库包含以下常数定义，且在您的工程文件中已经显式引用该类型库后，才允许使用这些常数。对于 VBScript，必须在代码中显式声明这些常数。 Dim x,y x=100 y=VarType(x) MsgBox y '2 (Integer) x="Hyderabad" y=VarType(x) MsgBox y '8 (String) x=#10-10-10# y=VarType(x) MsgBox y '7(Date format) x=100.56 y=VarType(x) MsgBox y ' 5(Double) y=VarType(a) MsgBox y '0 (Empty) Set x =CreateObject("Scripting.FileSystemObject") y=VarType(x) MsgBox y '9(Automation Object) '10)Mid Function '从字符串中返回指定数目的字符。 Mid(string,start[,length]) '参数 string '字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。 Start 'string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。 Length '要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。 '说明 '要判断 string 中字符的数目，可使用 Len 函数。 ' 下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符： Dim MyVar 'MyVar = Mid("VB脚本is fun!",4,6) 'MyVar 包含 "Script"。 '注意 MidB 函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。 '11)Timer Function '返回午夜 12 时以后已经过去的秒数 Function myTime(N) Dim StartTime,EndTime StartTime = Timer For i = 1 To N Next EndtIime = Timer myTime = EndTime - StartTime msgBox myTime End Function Call myTime(2000) '12) isNumeric Function Dim MyVar,MyCheck MyVar = 53 '赋值。 MyCheck = IsNumeric(MyVar) ' 返回 True。 MyVar = "459.95" ' 赋值。 MyCheck = IsNumeric(MyVar) ' 返回True。 MyVar = "45 Help" ' 赋值。 MyCheck = IsNumeric(MyVar) ' 返回 False。 '13)strComp 'It compares two strings based on ASCII Values and Returens -1 (1st less than 2nd ),0 (Equal) and 1 (1st greater than 2nd) Dim x,y x="cd": y="bcd" comp=strcomp(x,y) msgBox comp '14) Replace 'It replace a sub string with given value (another sub string) mystring=Replace("kb script","k","v") msgBox mystring
