Question

我对VBA不太满意，如果你能帮助我，我会很高兴。

我需要创建一个代码，在给定开始日期和最终日期（最终结算日期）的情况下，根据特定频率（即每季度，每半年......）计算中间观察日期。在这个日期里，我不想包括周末。

此外，我还需要确定另一组日期，即观察日期+5个工作日给出的付款日期。这可能吗？

提前致谢。

Answer 1

因为我是一个无心的混蛋，所以我决定一路上帮助你。我不是为你做的一切，但这是我对你的道歉。

Private Sub datesched()
    Dim UserInput As Variant
    UserInput = CDate(InputBox("give me a date"))

    Dim QuartelyDate As Date
    For i = 1 To 4
        QuarterlyDate = DateAdd("m", 4, UserInput)
        Debug.Print ; QuarterlyDate
    Next i

    Dim SemiAnnual As Date
    For i = 1 To 2
        SemiAnnual = DateAdd("m", 6, UserInput)
        Debug.Print ; SemiAnnual
    Next i

End Sub

用于创建日期计划的VBA代码

1 个答案: