Whoops, Fabio's right there's an off by one (sort of) error. Here's the correct code

FUNCTION Quarter

PARAMETER tdDate

PRIVATE m.result
m.result = CEILING(MONTH(tdDate) / 3)
RETURN m.result

Sorry,