怎么在VBscript里进行时区转换

xuehuiyiwang

要实现的功能是这样：获取本地的时间与时区值，并将时间转换成目标时区（比如西四去）的时间。

谢谢先。

xuehuiyiwang

我自己想的大概会有这么几步：
1. 获得系统时间。
2. 将系统时间转换为国际标准时间（UTC）。
3. 根据时差，计算出目标时区此时的国际标准时间（UTC）。
4. 将目标时区的国际标准时间（UTC）转换为当地系统时间。

所以，具体就是2，3，4，步怎么实现？或者还有其它的方式吗？

gy21st

用WMI直接取得UTC时间。
这段代码仅供参考

strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery( _
    "Select * from Win32_UTCTime")
For Each objItem in colItems
    Msgbox "Year: " & objItem.Year
    Msgbox "Month: " & objItem.Month
    Msgbox "Day: " & objItem.Day
    Msgbox "Hour: " & objItem.Hour
    Msgbox "Minute: " & objItem.Minute
    Msgbox "Second: " & objItem.Second
Next

xuehuiyiwang

谢谢。后来换了一种方式，直接从服务器页面上取出当天的日期了。

walker1020

如果知道目标时区与本地时区的时差，那么可以 使用DateAdd 函数来得到目标时区的时间。