Vbs获取两个日期天数间隔

Vbs获取两个日期天数间隔

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

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

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

 

我们只是一个实例，

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()