如何修改VBA代码实现分期日期按月递增而非按日递增？

控件说明 #

• TextBox3：分期起始日期输入框
• TextBox6：付款周期设置（每月一期，可灵活调整为N月一期）
• H1~H15：共15个文本框，用于展示递增后的分期日期

原代码（按日递增） #

For i = 1 To 15
     If i = 1 Then
         Me("h" & i) = TextBox3.Text
     Else
         Me("h" & i) = Format(CDate(Me.TextBox3.Value) + i - 1, "dd/mm/yyyy")
     End If
Next i

修改后代码（按月递增） #

Dim startDate As Date
Dim cycleMonths As Integer

' 读取起始日期与付款周期
startDate = CDate(Me.TextBox3.Value)
cycleMonths = CInt(Me.TextBox6.Value) ' 若固定每月一期，可直接写 cycleMonths = 1

For i = 1 To 15
    If i = 1 Then
        Me("h" & i) = Format(startDate, "dd/mm/yyyy")
    Else
        ' 用DateAdd实现按月递增，自动处理月末日期边界
        Me("h" & i) = Format(DateAdd("m", cycleMonths * (i - 1), startDate), "dd/mm/yyyy")
    End If
Next i

关键修改说明 #

• 替换原有的日期加减逻辑为DateAdd("m", ...)函数，确保日期按自然月份递增，避免月末日期（如1月31日）加月后出现无效日期的问题
• 关联TextBox6的周期值，支持自定义每N月一期的需求，若无需灵活调整，可直接将cycleMonths设为1
• 统一日期格式化方式，规范日期类型与文本的转换逻辑

内容的提问来源于stack exchange，提问作者hisham elsafty