计算两日期月数与剩余天数：VBA代码与在线计算器结果不符问题

问题描述 #

需要计算两个日期之间的月数及剩余天数，测试日期为04/19/1995和12/26/2022：

• 在线工具计算结果：332个月7天
• 自写VBA代码计算结果：332个月3天

原VBA代码：

Private Sub CommandButton7_Click()

    ' Calculate the difference between two dates in months and remaining days

    Dim startDate As Date
    Dim endDate As Date
    Dim months As Long
    Dim days As Long

    startDate = Application.InputBox("Enter a date:", "Date Input 1", Date, Type:=2)
    endDate = Application.InputBox("Enter another date:", "Date Input 2", Date, Type:=2)

    months = Abs(DateDiff("m", startDate, endDate))
    days = Abs(DateDiff("d", startDate, endDate)) Mod 30

    MsgBox "The difference between the two dates is: " & months & " months and " & days & " days."

End Sub

差异原因分析 #

1. 月份计算逻辑正确：DateDiff("m")仅统计两个日期的月份跨度，测试用例中从1995年4月到2022年12月确实是332个月，这部分与在线工具一致。
2. 剩余天数计算逻辑错误：原代码通过总天数 Mod 30计算剩余天数，这是错误的核心原因。
   • 不同月份的天数差异很大（28-31天），固定按30天取余完全不符合实际日期的天数差逻辑。
   • 测试用例中，正确的剩余天数计算逻辑应为：将起始日期04/19/1995加上332个月，得到12/19/2022，再用结束日期12/26/2022减去这个日期，得到7天——这也是在线工具的计算逻辑。

修正方案 #

修改代码，采用「先算月份差，再生成起始日期加月份差后的临时日期，最后用结束日期减临时日期得到剩余天数」的逻辑，确保天数计算贴合实际月份的天数：

Private Sub CommandButton7_Click()
    ' 计算两个日期之间的月数及剩余天数
    Dim startDate As Date
    Dim endDate As Date
    Dim months As Long
    Dim days As Long
    Dim tempDate As Date

    startDate = Application.InputBox("输入起始日期:", "日期输入1", Date, Type:=2)
    endDate = Application.InputBox("输入结束日期:", "日期输入2", Date, Type:=2)

    ' 计算两个日期的月份差（取绝对值确保正数）
    months = Abs(DateDiff("m", startDate, endDate))
    
    ' 根据日期顺序，生成起始日期加上对应月份的临时日期
    tempDate = DateAdd("m", IIf(endDate > startDate, months, -months), startDate)
    
    ' 计算结束日期与临时日期的天数差（取绝对值）
    days = Abs(endDate - tempDate)

    MsgBox "两个日期的差值为: " & months & " 个月和 " & days & " 天。"
End Sub

关键修正点说明 #

• 使用DateAdd生成临时日期：确保临时日期是起始日期加上准确月份差后的日期，避免固定30天的错误假设。
• 用IIf判断日期顺序：保证DateAdd的方向正确，无论起始日期早于还是晚于结束日期，都能生成正确的临时日期。
• 直接通过日期相减获取天数：比DateDiff("d")更直观，结果一致，且能准确反映实际天数差。

内容的提问来源于stack exchange，提问作者Kevin Perez