在给定日期范围的情况下按季度设置开始和结束日期

Question

我需要帮助将其编码为 Excel-VBA 中的函数。老实说，我不认为我是否能够清楚地解释这一点，但是就这样吧。

我有一个日期范围，可以是同一年内的任何日期

示例日期范围： 日期 A = 01/15/2019 日期 B = 2019 年 12 月 10 日

我必须将日期拆分为它所涵盖的一年中每个季度的开始日期和结束日期。由于 DateA 在 Q1，第一个开始日期将是给定的 DateA，第一个结束日期将是 Q1（3 月 31 日）的结束。所以对于这个例子：

开始日期 1 = 01/15/2019 结束日期 1 = 03/31/2019

接下来，我现在必须获取从 Q2 到 DateB 的日期。

这是我到目前为止的开始。首先，我必须找到范围从哪个季度开始。

Select Case Month(startdate)
    Case 1 to 3
       'what to do
    Case 3 to 6
       'what to do
    Case 7 to 9
        'what to do
    Case 10 to 12
        'what to do
End Select

我还不知道如何编写后续步骤或如何从这里开始编写代码。

最终结果必须如下：

开始日期 1 = 01/15/2019
结束日期 1 = 03/31/2019

开始日期 2 = 04/01/2019
结束日期 2 = 06/30/2019

开始日期 3 = 07/01/2019
结束日期 3 = 09/30/2019

开始日期 4 = 10/01/2019
结束日期 4 = 12/10/2019

Answer 1

这两个自定义函数应该可以做到。我假设有人不会遇到任何开始日期晚于季度的情况。您可以更新公式以捕获一个变量，例如 2018 年 3 月 31 日，但我只是将其设置为获取季度数和年份。

Function startDate(beginTIME As Date, QuarterNumber As Long, TheYEar As Long) As Date
    Dim Q_BeginDates(1 To 4) As Date

    Q_BeginDates(1) = DateSerial(TheYEar, 1, 1)
    Q_BeginDates(2) = DateSerial(TheYEar, 4, 1)
    Q_BeginDates(3) = DateSerial(TheYEar, 7, 1)
    Q_BeginDates(4) = DateSerial(TheYEar, 10, 1)

    If beginTIME < Q_BeginDates(QuarterNumber) Then
        startDate = Q_BeginDates(QuarterNumber)
    Else
        startDate = beginTIME
    End If



End Function


Function endDate(endTIME As Date, QuarterNumber As Long, TheYEar As Long) As Date
    Dim Q_EndDates(1 To 4) As Date

    Q_EndDates(1) = DateSerial(TheYEar, 3, 31)
    Q_EndDates(2) = DateSerial(TheYEar, 6, 30)
    Q_EndDates(3) = DateSerial(TheYEar, 9, 30)
    Q_EndDates(4) = DateSerial(TheYEar, 12, 31)

    If endTIME > Q_EndDates(QuarterNumber) Then
        endDate = Q_EndDates(QuarterNumber)
    Else
        endDate = endTIME
    End If

End Function

另外，我仍然会推荐非 VBA。这是我在模型上做的一个方法...

C5单元格中的公式是=IF(A1<DATE(LEFT(B5,4),CHOOSE(RIGHT(B5,1),1,4,7,10),1),DATE(LEFT(B5,4),CHOOSE(RIGHT(B5,1),1,4,7,10),1),$A$1)

单元格 D5 中的公式为： =IF($B$1>DATE(LEFT(B5,4),CHOOSE(RIGHT(B5,1),3,6,9,12),CHOOSE(RIGHT(B5,1),31,30,30,31)),DATE(LEFT(B5,4),CHOOSE(RIGHT(B5,1),3,6,9,12),CHOOSE(RIGHT(B5,1),31,30,30,31)),$B$1)