VBS实现将当前时间转换成UTC时间

这篇文章主要介绍了VBS实现将当前时间转换成UTC时间,十分的简单实用，需要的朋友可以参考下

例如下面的代码在当前时间返回：1368299689

1. Option Explicit 
2.  
3. Dim dtmDate 
4.  
5. If WScript.Arguments.Named.Count > 0 Then Syntax 
6.  
7. With WScript.Arguments.Unnamed 
8. ' Check command line arguments 
9. If .Count = 0 Then dtmDate = Now 
10. If .Count > 0 Then dtmDate = .Item(0) 
11. If .Count > 1 Then dtmDate = dtmDate & " " & .Item(1) 
12. If .Count > 2 Then dtmDate = dtmDate & " " & .Item(2) 
13. If .Count > 3 Then Syntax 
14. On Error Resume Next 
15. dtmDate = CDate( dtmDate ) 
16. If Err Then 
17. On Error Goto 0 
18. Syntax 
19. End If 
20. On Error Goto 0 
21. If Not IsDate( dtmDate ) Then Syntax 
22. End With 
23.  
24. ' Calculate and display the result 
25. WScript.Echo DateDiff( "s", "1970-01-01 00:00:00", dtmDate ) 
26.  
27.  
28. Sub Syntax 
29. WScript.Echo vbcrlf _ 
30. & "Date2UTC.vbs, Version 1.00" _ 
31. & vbCrLf _ 
32. & "Convert any date/time to Unix time (UTC)" _ 
33. & vbCrLf & vbCrLf _ 
34. & "Usage: CSCRIPT.EXE //NoLogo Date2UTC.vbs date [ time ]" _ 
35. & vbCrLf & vbCrLf _ 
36. & "Where: ""date"" is the date to convert (default: current date/time)" _ 
37. & vbCrLf _ 
38. & " ""time"" is the optional time to convert" _ 
39. & vbCrLf & vbCrLf _ 
40. & "Notes: Though often called UTC, Unix time does not take into account leap" _ 
41. & vbCrLf _ 
42. & " seconds, while ""official"" UTC does." _ 
43. & vbCrLf _ 
44. & " If the specified date is ambiguous, the current user's date" _ 
45. & vbCrLf _ 
46. & " and time format is assumed." _ 
47. & vbCrLf & vbCrLf _ 
48. & "Written by Rob van der Woude" _ 
49. & vbCrLf _ 
50. & "http://www.robvanderwoude.com" 
51. WScript.Quit 1 
52. End Sub 

以上所述就是本文的全部内容了，希望大家能够喜欢。