如何修正VBA计算最近季度末（QRT_END）时的日期格式错误

需求说明 #

• 自动计算格式为YYYYMMDD的最近季度末日期（QRT_END）：
  • 例：当前日期为20221120时，返回20220930
  • 次年1-3月运行时，需返回上一年的12月31日：例20230215运行时返回20221231

现有代码问题 #

现有VBA代码在10月及之前运行正常，可返回20220331、20220630这类正确结果，但在11月或12月运行时，会错误生成类似202201030的结果，正确结果应为20220930。问题根源是代码给所有非0的月份都添加了前缀0，导致10-12月被格式化为010、011、012，拼接后破坏了日期格式。

原有代码 #

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_END() As String
    Dim endmonth As Integer
    Dim endyear As Integer
    Dim day As Integer
    Dim currentMonth As Integer
    
    currentMonth = Month(Date)
    
    ' 确定最近季度末的月份和年份
    Select Case currentMonth
        Case 1 To 3
            endyear = Year(Date) - 1
            endmonth = 12
            day = 31
        Case 4 To 6
            endyear = Year(Date)
            endmonth = 3
            day = 31
        Case 7 To 9
            endyear = Year(Date)
            endmonth = 6
            day = 30
        Case 10 To 12
            endyear = Year(Date)
            endmonth = 9
            day = 30
    End Select
    
    ' 仅对1-9月补0，保证格式为MM
    If endmonth < 10 Then
        endmonth = "0" & endmonth
    End If
    
    ' 拼接为YYYYMMDD格式字符串
    getQRT_END = CStr(endyear) & CStr(endmonth) & CStr(day)
End Function

修改说明 #

1. 修正季度末月份逻辑：通过Select Case按当前月份所在区间直接映射到对应季度末月份，替代原有的当前月-1的不合理逻辑，确保10-12月直接对应9月，1-3月对应上一年12月。
2. 优化月份补0规则：仅当月份为1-9时添加前缀0，10-12月直接保留原数值，避免出现010这类错误格式。
3. 明确日期天数：直接对应每个季度末的正确天数（12、3月为31天，6、9月为30天），逻辑更清晰。
4. 变量类型优化：将变量改为明确的Integer类型，避免Variant类型带来的潜在问题。

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