Søgning på kvartal

Jeg har haft samme problem engang, Det løste jeg ved denne funktion:
----------
Function funcServerIsUk()
    Dim intTempNum

    intTempNum = FormatNumber(1000, 0)
    If instr(1, Cstr(intTempNum), \",\") then
        funcServerIsUk = true
    Else
        funcServerIsUk = false
    End if

End Function

if funcServerIsUk = false then
    strSQL = SELECT * FROM table WHERE dato <= #01-01-2001# AND dato => #31-03-2001#
else
    strSQL = SELECT * FROM table WHERE dato <= #01-01-01# AND dato => #03-31-2001#
End if
----------

Det lyder som en god ide. Jeg prøver det senere..

Mange tak for din hjælp ;-)