vba - Access VBA从月号获取季度

我被困于尝试从月份号中查找年份的四分之一号，即我有第二号应为四分之一号的第一号，我该如何在Access VBA或 Access 查询中做到这一点？
提前致谢。

最佳答案

您可以使用此功能:

Public Function Quarter(ByVal MonthNumber As Long) As Long

        If (MonthNumber < 1) Or (MonthNumber > 12) Then
                Call Err.Raise(6) ' Value out of Bounds '
        End If

        Let Quarter = (MonthNumber - 1) \ 3 + 1

End Function