• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS显示当前标准时间

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

    Option Explicit
     
    Dim blnDate, blnTime
    Dim dtmDate
    Dim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYear
    Dim 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 Syntax
    End With
     
    ' Format the output string
    intYear = 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  "-"  intDay
    If blnTime Then strISO = strISO  " "  intHour  ":"  intMin  ":"  intSec
    ' Display the result
    WScript.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 = strDatePart
    End 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 1
    End 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时间
    上一篇:VBS实现将当前时间转换成UTC时间
    下一篇:VBScript中On Error语句用法小结
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS显示当前标准时间 VBS,显示,当前,标准时间,