将WMI中的DateTime类型转换成VBS时间的函数代码
将WMI中的DateTime类型转换成VBS时间的函数代码
发布时间:2016-12-28 来源:查字典编辑
摘要:有两种方法可以转换,一种是自己写个函数解析:复制代码代码如下:FunctionWMIDateStringToDate(DateTime)WM...

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

复制代码 代码如下:

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

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新vbs学习
热门vbs学习
脚本专栏子分类