'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",Date1,Date2)'Difference in Qarters
MsgBox x
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("m", Date1, Date2)
Msgbox x 'Differnce in Months
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("w", Date1, Date2)
Msgbox x 'Differnce in weeks
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("d", Date1, Date2)
Msgbox x 'Differnce in days
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("h", Date1, Date2)
Msgbox x 'Differnce in Hours
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("n", Date1, Date2)
Msgbox x 'Differnce in Minutes
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("s", Date1, Date2)
Msgbox x 'Differnce in Seconds
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("y", Date1, Date2)
Msgbox x 'Differnce in day of years
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("a", Date1, 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
'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",Date1,Date2)'Difference in Qarters
MsgBox x
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("m", Date1, Date2)
Msgbox x 'Differnce in Months
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("w", Date1, Date2)
Msgbox x 'Differnce in weeks
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("d", Date1, Date2)
Msgbox x 'Differnce in days
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("h", Date1, Date2)
Msgbox x 'Differnce in Hours
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("n", Date1, Date2)
Msgbox x 'Differnce in Minutes
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("s", Date1, Date2)
Msgbox x 'Differnce in Seconds
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("y", Date1, Date2)
Msgbox x 'Differnce in day of years
Date1=#10-10-09#
Date2=#10-10-11#
x=DateDiff("a", Date1, 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