将WMI中的DateTime类型转换成VBS时间的函数代码

203 阅读 0 评论 134 点赞

我是靠谱客的博主冷艳大雁，这篇文章主要介绍将WMI中的DateTime类型转换成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)
原文：http://demon.tw/programming/wmi-datetime-vbs.html