51Testing软件测试论坛

标题: 怎么在VBscript里进行时区转换 [打印本页]

作者: xuehuiyiwang 时间: 2008-5-27 16:35
标题: 怎么在VBscript里进行时区转换
要实现的功能是这样：获取本地的时间与时区值，并将时间转换成目标时区（比如西四去）的时间。

谢谢先。

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

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

作者: gy21st 时间: 2008-5-27 18:15
用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 时间: 2008-5-28 15:01
谢谢。后来换了一种方式，直接从服务器页面上取出当天的日期了。

作者: walker1020 时间: 2008-10-12 19:56
如果知道目标时区与本地时区的时差，那么可以使用DateAdd 函数来得到目标时区的时间。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)