VBS显示当前标准时间

vbS显示当前标准时间，例如：执行下面的代码则显示：2013-05-11 19:10:11

Option ExplicIT Dim blnDate, blnTimeDim dtmDateDim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYearDim strISO With WScript.arguments  ' Check command line arguments  If .Unnamed.Count = 0 Then dtmDate = Now  If .Unnamed.Count >
     0 Then dtmDate = .Unnamed(0)  If .Unnamed.Count >
     1 Then dtmDate = dtmDate &
     " " &
     .Unnamed(1)  If .Unnamed.Count >
     2 Then dtmDate = dtmDate &
     " " &
     .Unnamed(2)  If .Unnamed.Count >
     3 Then Syntax  On Error Resume Next  dtmDate = CDate( dtmDate )  If Err Then    On Error Goto 0    Syntax  End If  On Error Goto 0  If Not IsDate( dtmDate ) Then Syntax  intValid = 0  blnDate = True  blnTime = True  If .Named.Exists( "D" ) Then    blnDate = True    blnTime = False    intValid = intValid + 1  End If  If .Named.Exists( "T" ) Then    blnDate = False    blnTime = True    intValid = intValid + 1  End If  If intValid >
     .Named.Count Then Syntax  If intValid >
     1 Then SyntaxEnd With ' Format the output stringintYear = DatePartLZ( "yyyy", dtmDate )intMonth = DatePartLZ( "m", dtmDate )intDay  = DatePartLZ( "d", dtmDate )intHour = DatePartLZ( "h", dtmDate )intMin  = DatePartLZ( "n", dtmDate )intSec  = DatePartLZ( "s", dtmDate )If blnDate Then strISO = intYear &
     "-" &
     intMonth &
     "-" &
     intDayIf blnTime Then strISO = strISO &
     " " &
     intHour &
     ":" &
     intMin &
     ":" &
     intSec' Display the resultWScript.Echo Trim( strISO )  Function DatePartLZ( myInterval, myDate )  ' Add a leading zero to the DatePart() if necessary  Dim strDatePart  strDatePart = DatePart( myInterval, myDate )  If Len( strDatePart )  2 Then strDatePart = "0" &
     strDatePart  DatePartLZ = strDatePartEnd Function  Sub Syntax  WScript.Echo vbcrlf _        &
     "Date2ISO.vbs, Version 1.02" _        &
     vbCrLf _        &
     "Convert any date/time to ISO date/time" _        &
     vbCrLf &
     vbCrLf _        &
     "usage: CSCRIPT.EXE //NoLOGo Date2ISO.vbs date [ time ] [ /D | /T ]" _        &
     vbCrLf &
     vbCrLf _        &
     "Where: ""date""  is the date to convert (default: current date/time)" _        &
     vbCrLf _        &
     "    ""time""  is the optional time to convert" _        &
     vbCrLf _        &
     "    /D    return date only (default: both date and time)" _        &
     vbCrLf _        &
     "    /T    return time only (/D and /T are mutually exclusive)" _        &
     vbCrLf &
     vbCrLf _        &
     "Note:  If the sPEcified date is amBiguous, the current user's date" _        &
     vbCrLf _        &
     "    and time format is assumed." _        &
     vbCrLf &
     vbCrLf _        &
     "Written by Rob van der Woude" _        &
     vbCrLf _        &
     "http://www.robvanderwoude.COM"  WScript.Quit 1End Sub

附上一段VBS校对系统时间的代码给大家参考下

'VBS校准系统时间 BY BatMan Dim objXML, Url, Message Message = "恭喜你，本机时间非常准确无需校对！" Set objXML = CreateObject("MSXML2.XmlHttp") Url = "http://open.baidu.com/special/time/" objXML.open "GET", Url, False objXML.send() Do Until objXML.readystate = 4 : WScript.Sleep 200 : Loop Dim objStr, LocalDate objStr = objXML.responseText LocalDate = Now() Set objXML = Nothing Dim objREG, regNum Set objREG = New RegExp objREG.Global = True objREG.IgnoreCase = True objREG.Pattern = "window.baidu_time\((\d{
13,}
    )\)" regNum = Int(objREG.Execute(objStr)(0).Submatches(0)) /1000 Dim OldDate, BJDate, Num, Num1 OldDate = "1970-01-01 08:00:00" BJDate = DateAdd("s", regNum, OldDate) Num = DateDiff("s", LocalDate, BJDate) If Abs(Num) >
    =1 Then Dim DM, DT, TM, objSHELL DM = DateAdd("S", Num, Now()) DT = DateValue(DM) TM = TimeValue(DM) If InStr(Now, "午") Then Dim Arr, Arr1, h24 Arr = Split(TM, " ") Arr1 = Split(Arr(1), ":") h24 = Arr1(0) If Arr(0) = "下午" Then h24 = h24 + 12 Else If h24 = 12 Then h24 = 0 End If TM = h24 &
     ":" &
     Arr1(1) &
     ":" &
     Arr1(2) End If Set objSHELL = CreateObject("Wscript.Shell") objSHELL.Run "cmd /cdate " &
     DT, False, True objSHELL.Run "cmd /ctime " &
     TM, False, True Num1 = Abs(DateDiff("s", Now(), BJDate)) Message = "【校准前】" &
     vbCrLf _ &
     "标准北京时间为：" &
     vBTab &
     BJDate &
     vbCrLf _ &
     "本机系统时间为：" &
     vbTab &
     LocalDate &
     vbCrLf _ &
     "与标准时间相差：" &
     vbTab &
     Abs(Num) &
     "秒" &
     vbCrLf &
     vbCrLf _ &
     "【校准后】" &
     vbCrLf _ &
     "本机系统时间为：" &
     vbTab &
     Now() &
     vbCrLf _ &
     "与标准时间相差：" &
     vbTab &
     Num1 &
     "秒" Set objSHELL = Nothing End If WScript.Echo Message 

以上所述就是本文的全部内容了，希望对大家学习VBS能够有所帮助。

• 用vbscript实现修改屏幕保护的等待时间长度
• 将WMI中的DateTime类型转换成VBS时间的函数代码
• 用VBS修改（设置）系统时间和日期的代码
• 校准系统时间的VBS代码
• VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
• vbscript实现的根据不同时间段显示不同的欢迎语
• vbs获取当前时间日期的代码
• vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法
• VBS实现将当前时间转换成UTC时间

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！