将WMI中的DateTime类型转换成VBS时间

WMI中的DateTime数据类型保存的时间格式是UTC，与VBS中的时间类型不同。

有两种方法可以转换，一种是自己写个函数解析：

Function WMIDateStringToDate(DateTime)
    WMIDateStringToDate = _
    CDate(Mid(DateTime, 5, 2) &_
    "/" &_
    Mid(DateTime, 7, 2) &_
    "/" &_
    Left(DateTime, 4) &_
    " " &_
    Mid (DateTime, 9, 2) &_
    ":" &_
    Mid(DateTime, 11, 2) &_
    ":" &_
    Mid(DateTime, 13, 2))
End Function

另一种是使用SWbemDateTime对象

Function WMIDateStringToDate(DateTime)
   Set WbemDateTime = _
   CreateObject("WbemScripting.SWbemDateTime")
   WbemDateTime.Value = DateTime
   WMIDateStringToDate = WbemDateTime.GetVarDate()
End Function

参考链接：It’s About Time (Oh, and About Dates, Too)

随机文章:

1. cURL 7.22.0 with zlib SSL and IPv6 support
2. InputBox与两数相加——一个简单的VBS脚本问题
3. VBS短信飞信发送类（VBSFetion）
4. 迅雷高速通道与离线下载
5. WriteFile,WriteConsole和_tprintf的一些差别

这篇文章发布于 2010年11月17日，星期三，21:52，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。