you could use a custom function. In a query, submit the date to the function to get back what period....
usage: getPeriod([dateField])
Code:
Public Function getPeriod(ByVal pvDate)
Dim vYr
Dim vPd1St As Date, vPd1End As Date
Dim vPd2St As Date, vPd2End As Date
Dim vPd3St As Date, vPd3End As Date
Dim vPd4St As Date, vPd4End As Date
Dim vPd5St As Date, vPd5End As Date
Dim vPd6St As Date, vPd6End As Date
Dim vPd7St As Date, vPd7End As Date
Dim vPd8St As Date, vPd8End As Date
Dim vPd9St As Date, vPd9End As Date
Dim vPd10St As Date, vPd10End As Date
Dim vPd11St As Date, vPd11End As Date
Dim vPd12St As Date, vPd12End As Date
Dim vPd13St As Date, vPd13End As Date
Dim vPd14St As Date, vPd14End As Date
Dim vPd15St As Date, vPd15End As Date
Dim vPd16St As Date, vPd16End As Date
Dim vPd17St As Date, vPd17End As Date
Dim vPd18St As Date, vPd18End As Date
Dim vPd19St As Date, vPd19End As Date
Dim vPd20St As Date, vPd20End As Date
Dim vPd21St As Date, vPd21End As Date
Dim vPd22St As Date, vPd22End As Date
Dim vPd23St As Date, vPd23End As Date
Dim vPd24St As Date, vPd24End As Date
Dim vPd25St As Date, vPd25End As Date
Dim vPd26St As Date, vPd26End As Date
vYr = Year(pvDate)
vPd1St = "1/1/" & vYr
vPd1End = "1/15/" & vYr
vPd2St = "2/1/" & vYr
vPd2End = "2/15/" & vYr
vPd3St = "3/1/" & vYr
vPd3End = "3/15/" & vYr
'etc
Select Case True
Case pvDate >= vPd1St And pvDate <= vPd1End
getPeriod = "Pd-1"
Case pvDate >= vPd2St And pvDate <= vPd2End
getPeriod = "Pd-2"
Case pvDate >= vPd3St And pvDate <= vPd3End
getPeriod = "Pd-3"
Case pvDate >= vPd4St And pvDate <= vPd4End
getPeriod = "Pd-4"
Case pvDate >= vPd5St And pvDate <= vPd5End
getPeriod = "Pd-5"
Case pvDate >= vPd6St And pvDate <= vPd6End
getPeriod = "Pd-6"
Case pvDate >= vPd7St And pvDate <= vPd7End
getPeriod = "Pd-7"
Case pvDate >= vPd8St And pvDate <= vPd8End
getPeriod = "Pd-8"
Case pvDate >= vPd9St And pvDate <= vPd9End
getPeriod = "Pd-9"
Case pvDate >= vPd10St And pvDate <= vPd10End
getPeriod = "Pd-10"
Case pvDate >= vPd11St And pvDate <= vPd11End
getPeriod = "Pd-11"
Case pvDate >= vPd12St And pvDate <= vPd12End
getPeriod = "Pd-12"
Case pvDate >= vPd13St And pvDate <= vPd13End
getPeriod = "Pd-13"
Case pvDate >= vPd14St And pvDate <= vPd14End
getPeriod = "Pd-14"
Case pvDate >= vPd15St And pvDate <= vPd15End
getPeriod = "Pd-15"
Case pvDate >= vPd16St And pvDate <= vPd16End
getPeriod = "Pd-16"
Case pvDate >= vPd17St And pvDate <= vPd17End
getPeriod = "Pd-17"
Case pvDate >= vPd18St And pvDate <= vPd18End
getPeriod = "Pd-18"
Case pvDate >= vPd19St And pvDate <= vPd19End
getPeriod = "Pd-19"
Case pvDate >= vPd20St And pvDate <= vPd20End
getPeriod = "Pd-20"
Case pvDate >= vPd21St And pvDate <= vPd21End
getPeriod = "Pd-21"
Case pvDate >= vPd22St And pvDate <= vPd22End
getPeriod = "Pd-22"
Case pvDate >= vPd23St And pvDate <= vPd23End
getPeriod = "Pd-23"
Case pvDate >= vPd24St And pvDate <= vPd24End
getPeriod = "Pd-24"
Case pvDate >= vPd25St And pvDate <= vPd25End
getPeriod = "Pd-25"
Case pvDate >= vPd26St And pvDate <= vPd26End
getPeriod = "Pd-26"
Case Else
getPeriod = "error"
End Select
End Function