vbs函数

MyDate="October 19,1222"MyShortDate=CDate(MyDate)MyTime="4:35:45 PM"MyShortTime=CDate(MyTime)'MsgBox(MyShortDate)'MsgBox(MyShortTime)dim MyDouble,MyByteMyDouble=125.5245MyByte=CByte(MyDouble)dim MyDateMyDate = DateAdd("m",1,"31-Jan-2011")'MsgBox(MyDate)dim MyDate1,MyDate2MyDate1=DateSerial(1970,1,1)MyDate2=DateDiff("d",Now,MyDate1)'MsgBox(MyDate2)dim b,guee,rueeguee=3ruee=5b=Eval("guee=ruee")'MsgBox(b)Dim MyIndexDim MyArray(3)MyArray(0)="Sunday"MyArray(1)="Monday"MyArray(2)="Tuesday"MyIndex=Filter(MyArray,"Mon")dim MyStringMyString=Replace("XXPXXXPXXP","XX","Y")'MsgBox(MyString)Dim AnyString,MyStrAnyString="Hello World"MyStr=Right(AnyString,1)MyStr=Right(AnyString,7)'MsgBox(MyStr)Dim MyStr1MyStr1=StrReverse("VBScript")'msgbox(MyStr1)dim starttime,endtimestarttime=Timerfor i=1 to 100nextendtime=TimerTimeIt=endtime-starttime'msgbox(timeit)dim MyCheckMyCheck=VarType(MyCheck)'msgbox(MyCheck)dim d,itemset 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.DateLastModifiedMsgBox(s)