VBS实现UTC时间和本地时间互转
Posted yada
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了VBS实现UTC时间和本地时间互转相关的知识，希望对你有一定的参考价值。
本地时间转UTC时间
dim SWDT, datetime, utcTime
Set SWDT = CreateObject("WbemScripting.SWbemDateTime")
datetime = "2019-10-11 12:00:00"
‘本地时间转UTC时间
SWDT.SetVarDate datetime, True
utcTime = SWDT.GetVarDate (False)
UTC时间转本地时间
dim SWDT, datetime, localTime
Set SWDT = CreateObject("WbemScripting.SWbemDateTime")
datetime = "2019-10-11 12:00:00"
‘UTC时间转本地时间
SWDT.SetVarDate datetime, False
localTime = SWDT.GetVarDate(True)
示例：
新建文本文件，写入以下代码，改后缀名为vbs。
dim SWDT, datetime, utcTime, localTime
Set SWDT = CreateObject("WbemScripting.SWbemDateTime")
datetime = "2019/10/11 12:00:00"
‘本地时间转UTC时间
SWDT.SetVarDate datetime, True
utcTime = SWDT.GetVarDate (False)
‘UTC时间转本地时间
SWDT.SetVarDate datetime, False
localTime = SWDT.GetVarDate(True)
Wscript.Echo "输入时间：" & datetime & vbnewline & "UTC时间："& utcTime & vbnewline & "本地时间："& localTime & vbnewline
运行效果如下：
以上是关于VBS实现UTC时间和本地时间互转的主要内容，如果未能解决你的问题，请参考以下文章