利用dateadd函数根据当前日期计算证件的有效日期

时　间:2018-04-20 18:48:59
作　者:爱吉瑞   ID：15524  城市：连云港
摘　要:利用dateadd函数根据当前日期计算证件的有效日期
正　文:

       从事行政审批系统开发的小伙伴们注意了，在设计证件报表时，往往会根据发证日期，推算出一个有效日期。比如，XX证件的有效期限为3年，当前日期为2018-4-20，有效期至应是2021-4-19。这个日期如何算出来呢？想一下，还是有点小难度。当在同一个时月时，年加3，月不变，日-1即可。当前日期为2018-5-1，就有些麻烦了。再如2018-3-1，3年以后，2月份是28天，29天？

      其实，利用dateadd编写一个自定义函数，根据不用考虑这些问题。看一下下面的代码，挺easy的吧？

Public Function YXRQ(FZRQ As Date) As Date

    YXRQ = DateAdd("m", 36, FZRQ)

    YXRQ = DateAdd("d", -1, YXRQ)

End Function