VBA根据出生日期和当前年份计算学年-日历年从12月更改为1月时除外

Function CalculateAcademicYear(birthDate As Date) As Integer
    Dim currentYear As Integer
    Dim birthYear As Integer
    Dim birthMonth As Integer
    Dim birthDay As Integer
    
    currentYear = Year(Date)
    birthYear = Year(birthDate)
    birthMonth = Month(birthDate)
    birthDay = Day(birthDate)
    
    If Month(Date) >= 12 Then
        currentYear = currentYear + 1
    End If
    
    If birthMonth >= 12 Then
        birthYear = birthYear + 1
    End If
    
    CalculateAcademicYear = currentYear - birthYear
    
    If Month(Date) = 1 Then
        CalculateAcademicYear = CalculateAcademicYear - 1
    End If
End Function