vbs函数

MyDate="October 19,1222"
MyShortDate=CDate(MyDate)
MyTime="4:35:45 PM"
MyShortTime=CDate(MyTime)
'MsgBox(MyShortDate)
'MsgBox(MyShortTime)

dim MyDouble,MyByte
MyDouble=125.5245
MyByte=CByte(MyDouble)
dim MyDate
MyDate = DateAdd("m",1,"31-Jan-2011")
'MsgBox(MyDate)

dim MyDate1,MyDate2
MyDate1=DateSerial(1970,1,1)
MyDate2=DateDiff("d",Now,MyDate1)
'MsgBox(MyDate2)

dim b,guee,ruee
guee=3
ruee=5
b=Eval("guee=ruee")
'MsgBox(b)

Dim MyIndex
Dim MyArray(3)
MyArray(0)="Sunday"
MyArray(1)="Monday"
MyArray(2)="Tuesday"
MyIndex=Filter(MyArray,"Mon")

dim MyString
MyString=Replace("XXPXXXPXXP","XX","Y")
'MsgBox(MyString)

Dim AnyString,MyStr
AnyString="Hello World"
MyStr=Right(AnyString,1)
MyStr=Right(AnyString,7)
'MsgBox(MyStr)

Dim MyStr1
MyStr1=StrReverse("VBScript")
'msgbox(MyStr1)

dim starttime,endtime
starttime=Timer
for i=1 to 100
next
endtime=Timer
TimeIt=endtime-starttime

'msgbox(timeit)

dim MyCheck
MyCheck=VarType(MyCheck)
'msgbox(MyCheck)

dim d,item
set d=CreateObject("Scripting.Dictionary")
d.add "a","apple"
d.add "b","black"
d.add "c","cat"
item=d.Item( "c")
'msgbox(item)"

set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.GetFile("c:\Roger\xiaoguo.txt")
s=UCase("c:\Roger")&"<br>"
s=s&"创建："&f.DateCreated&"<br>"
s=s&"最后一次访问:"&f.DateLastAccessed&"<br>"
s=s&"最后一次修改:"&f.DateLastModified
MsgBox(s)