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
版权所有:易贤网
公众号
事业单位
当前位置：
公考类
招聘类
各类考试