将WMI中的DateTime类型转换成VBS时间的函数代码
2016-07-07来源:易贤网

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

2025公考·省考培训课程试听预约报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
推荐信息