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

2019-10-26 18:04:13

字体：大中小

来源：转载

供稿：网友

有两种方法可以转换，一种是自己写个函数解析：
复制代码代码如下:

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

您可能感兴趣的文章:

sql语句中如何将datetime格式的日期转换为yy-mm-dd格式LINQ字符串向datetime 转换时失败的处理方法时间字符串转换成日期对象datetime的方法Sql中将datetime转换成字符串的方法(CONVERT)Python中实现对Timestamp和Datetime及UTC时间之间的转换C#、.Net中把字符串(String)格式转换为DateTime类型的三种方法Java 和 Javascript 的 Date 与 .Net 的 DateTime 之间的相互转换

上一篇：VBS模拟POST上传文件的代码

下一篇：用vbs产生的若干个随机数并写入到一个.txt中的代码