Microsoft Access中按月调用DateAdd函数丢失月末日期信息问题

问题场景 #

用Access管理仓储客户仓位时，每月需更新付款日期、到期日等字段。原代码使用DateAdd("m", 1, [Date_Paid])实现月份递增，但存在缺陷：若原日期为每月29/30/31号，在2月执行更新后，后续日期会固定为28号（非闰年），无法保留原有的月末日期属性。

解决方案：自定义月末保留函数 #

编写一个自定义函数，判断原日期是否为当月最后一天，再针对性处理月份递增：

Function AddMonthPreserveEndOfMonth(inputDate As Date, monthsToAdd As Integer) As Date
    Dim isEndOfMonth As Boolean
    ' 判断输入日期是否为当月最后一天
    isEndOfMonth = (Day(inputDate) = Day(DateSerial(Year(inputDate), Month(inputDate) + 1, 0)))
    
    If isEndOfMonth Then
        ' 若为月末，返回目标月份的最后一天
        AddMonthPreserveEndOfMonth = DateSerial(Year(inputDate), Month(inputDate) + monthsToAdd + 1, 0)
    Else
        ' 非月末日期，正常执行月份递增
        AddMonthPreserveEndOfMonth = DateAdd("m", monthsToAdd, inputDate)
    End If
End Function

修改按钮代码 #

将原按钮代码中的DateAdd替换为自定义函数：

Private Sub Extend_One_Month_Click()
    Me.[Date Paid Actual] = Date
    Me.[Date_Paid] = AddMonthPreserveEndOfMonth(Me.[Date_Paid], 1)
    Me.[Date_Paid_Expiry] = AddMonthPreserveEndOfMonth(Me.[Date_Paid_Expiry], 1)
    Me.Recalc
End Sub

逻辑说明 #

• 核心判断：通过DateSerial(Year(inputDate), Month(inputDate)+1, 0)生成输入日期当月的最后一天，对比原日期的日数，判断是否为月末。
• 月末处理：若原日期是月末，直接生成目标月份的最后一天（比如1月31号→2月28/29号→3月31号）。
• 非月末处理：保持常规的DateAdd逻辑，确保普通日期正常递增。

内容的提问来源于stack exchange，提问作者Quinn Angus Dolan