Vbs获取两个日期天数间隔

最近想通过用户密码过期邮件提醒脚本想换一种执行方法,原来方法是vbs连接到AD后台获取用户的相关字段属性,然后判断,然后现在系统升级了,用户的相关信息被保存到了SQL数据库中,所以想通过vbs连接数据库进行判断及发送提示,对于这个功能我们下一篇文章将会介绍,本次介绍的是vbs如何判断两个日期间隔;

vbs脚本中已经定义了datediff 函数进行两个日期或者时间的间隔进行判断,所以随便总结了一下分享给有需要的童鞋;对于热爱学些的童鞋来说,w3shool网站是一个好的帮助学习站点,可以供参考,里面有很多种类的学习帮助实例

http://www.w3school.com.cn/vbscript/vbscript_ref_functions.asp

image  

我们只是一个实例,

Function pwdchdate() 
pwdchdate = "2016-11-01"
End Function
'MsgBox "用户最后一次密码修改日期:" & pwdchdate()
Function getnowdate()
getnowdate = year(Now)&"-"&Month(Now)&"-"&day(Now)
End Function 
'MsgBox "当前系统的日期:" & getnowdate() &Chr(10) & "用户最后一次密码修改日期:" & pwdchdate()
Function statistics    statistics = DateDiff("d",pwdchdate(),getnowdate())
End Function 
MsgBox "当前系统的日期:" & getnowdate() &chr(13) & "用户最后一次密码修改日期:" & pwdchdate()&chr(13) &"两个日期间隔天数:" & statistics()

  

image