访问VBA从月份号获取季度

Question

我被困在试图找到月份数字中的季度数字,即我有月号2应该是第1季度,我如何在Access VBA或访问查询中执行此操作？提前致谢.

Answer 1

你可以使用这个功能:

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