VBS实现将当前时间转换成UTC时间
例如下面的代码在当前时间返回：1368299689
OptionExplicit
DimdtmDate
IfWScript.Arguments.Named.Count>0ThenSyntax
WithWScript.Arguments.Unnamed
'Checkcommandlinearguments
If.Count=0ThendtmDate=Now
If.Count>0ThendtmDate=.Item(0)
If.Count>1ThendtmDate=dtmDate&""&.Item(1)
If.Count>2ThendtmDate=dtmDate&""&.Item(2)
If.Count>3ThenSyntax
OnErrorResumeNext
dtmDate=CDate(dtmDate)
IfErrThen
OnErrorGoto0
Syntax
EndIf
OnErrorGoto0
IfNotIsDate(dtmDate)ThenSyntax
EndWith
'Calculateanddisplaytheresult
WScript.EchoDateDiff("s","1970-01-0100:00:00",dtmDate)
SubSyntax
WScript.Echovbcrlf_
&"Date2UTC.vbs,Version1.00"_
&vbCrLf_
&"Convertanydate/timetoUnixtime(UTC)"_
&vbCrLf&vbCrLf_
&"Usage:CSCRIPT.EXE//NoLogoDate2UTC.vbsdate[time]"_
&vbCrLf&vbCrLf_
&"Where:""date""isthedatetoconvert(default:currentdate/time)"_
&vbCrLf_
&"""time""istheoptionaltimetoconvert"_
&vbCrLf&vbCrLf_
&"Notes:ThoughoftencalledUTC,Unixtimedoesnottakeintoaccountleap"_
&vbCrLf_
&"seconds,while""official""UTCdoes."_
&vbCrLf_
&"Ifthespecifieddateisambiguous,thecurrentuser'sdate"_
&vbCrLf_
&"andtimeformatisassumed."_
&vbCrLf&vbCrLf_
&"WrittenbyRobvanderWoude"_
&vbCrLf_
&"http://www.robvanderwoude.com"
WScript.Quit1
EndSub
以上所述就是本文的全部内容了，希望大家能够喜欢。