Built-In Functions of VB Script

'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