将WMI中的DateTime类型转换成VBS时间的函数代码
来源:本站原创|时间:2022-11-25|栏目:vb|
有两种方法可以转换,一种是自己写个函数解析:
复制代码 代码如下:
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
您可能感兴趣的文章
- 01-10VBS中的正则表达式的用法大全 <font color=red>原创&
- 01-10VBS教程:方法-Copy 方法
- 01-10VBS教程:方法-Move 方法
- 01-10VBS常用脚本 好东西
- 01-10ntiIframe.vbs用于批量清除被添加到文件中的恶意代码
- 01-10用vba实现将记录集输出到Excel模板
- 01-10VBS中常用脚本代码
- 01-10可以将文件转换为vbs语句的vbs代码
- 01-10Adsutil.vbs 在脚本攻击中的妙用[我非我原创]
- 01-10使用VBScript 中的类组织开发