我需要自动计算起始日期（aka QRT_START），它是5年前的季度。一个季度是3个月。例如，一年中有4个季度：3月31日、6月30日、9月30日和12月31日。


由于我们目前处于2022年11月16日，因此开始日期应为2017年12月31日。因此，根据当前日期，开始日期需要回溯5年的季度。
我还需要自动计算最近的结束日期（也称为QRT_END）。因此，由于我们是在2022年11月16日，结束日期将是今天之前的上一个季度结束日期，即2022年9月30日。我有下面写的VBA代码，请帮助我修复。

Private Function getQRT_END() As String

    Dim endmonth As Variant
    Dim endyear As Variant
    Dim Day As Variant

    endmonth = Month(Date) - 1
    If endmonth = 0 Then
        endyear = Year(Date) - 1
        endmonth = 12
        day = 31
    Else
        endyear = Year(Date)
        If endmonth = 3 Then
            day = 31
        Else
            day = 30
        End if
        endmonth = “0” & endmonth
    End If
    getQRT_END = endyear & endmonth & day
End Function

Private Function getQRT_START() As String
    Dim startmonth As Variant
    Dim startyear As Variant
    Dim Day As Variant
    
    startyear = Year(Date) - 5
    startmonth = Month(Date) + 2
    If startmonth <10 Then
        If startmonth = 3 Then
        day = 31
    Else
        day = 30
        
    End if
    startmonth  = “0” & startmonth
    Else
        day = 30
    End If

    getQRT_START = startyear & startmonth & day
End Function