Thanks George.

>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,