DDR爱好者之家 Design By 杰米
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能够有所帮助。
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年05月16日
2024年05月16日
- 林一峰2018-TRAVELOGUE4ESCAPE[香港首版][WAV+CUE]
- MollyLewis《OnTheLips》(2024)[Hi-Res96kHz_24bitFLAC]
- Joyce Jonathan《法式松弛感 漫步香榭丽舍》[FLAC/分轨][230.77MB]
- 群星《影视剧 春色寄情人 原声带》[320K/MP3][394.18MB]
- 吴牧野《强者独白II 李斯特巅峰作品选》[320K/MP3][216.01MB]
- 女神异闻录5御船千早coop攻略 p5r御船千早对话选项攻略
- dnf神话装备怎么获得
- dnf称号附魔
- 乌兰托娅.2024-《八月草儿飞HQ》头版限量编号[低速原抓WAV+CUE]
- 雷婷.2024-《寂寞烟火HQ》头版限量编号[低速原抓WAV+CUE]
- [ABC唱片]-《西电之声—人声》[HD-201][德国版HD]WAV+CUE
- dnf紧急任务怎么触发
- dnf紫牌能翻出什么
- 星穹铁道2.2上升的一切必将汇合怎么过 上升的一切必将汇合流程攻略
- [ABC唱片]-《西电之声—人声》[HD-201][德国版HD]WAV+CUE