קוד:
If (minage < maxage) then
minage = DateAdd("YYYY", -(minage), Date)
maxage = DateAdd("YYYY", -(maxage), Date)
maxage = DateAdd("d",-1,maxage)
dateinfo = dateinfo & " AND bdate Between #" & minage & "# AND #" & maxage & "#"
elseif (minage > maxage) then
ezer = maxage
maxage = minage
minage = ezer
minage = DateAdd("YYYY", -(minage), Date)
maxage = DateAdd("YYYY", -(maxage), Date)
maxage = DateAdd("d",-1,maxage)
dateinfo = dateinfo & " AND bdate Between #" & maxage & "# AND #" & minage & "#"
elseif (minage = maxage) then
minage = DateAdd("YYYY", -(minage), Date)
maxage = DateAdd("YYYY", -(maxage-1), Date)
maxage = DateAdd("d",-1,maxage)
dateinfo = dateinfo & " AND bdate Between #" & maxage & "# AND #" & minage & "#"
End If