Is it possible for a table or query to auto populate the Quarter number based on a date?
Is it possible for a table or query to auto populate the Quarter number based on a date?
It would be different for Fiscal Qtr, but:
Code:Public Function CvtDate2Qtr(ByVal pvDate) Dim sQtr As String If IsNull(pvDate) Then Exit Function Select Case Month(pvDate) Case 1, 2, 3 sQtr = "Q1:" Case 4, 5, 6 sQtr = "Q2:" Case 7, 8, 9 sQtr = "Q3:" Case 10, 11, 12 sQtr = "Q4:" End Select CvtDate2Qtr = sQtr & Year(pvDate) End Function