QUARTER(<expD>)
 Computes the quarter of the year in which <expD> falls.
 Returns <expN> quarter of the year corresponding to <expD>.

 Returns    Dates between
 ═══════    ══════════════
    1       01/01 -- 03/31
    2       04/01 -- 06/30
    3       07/01 -- 09/30
    4       10/01 -- 12/31

 m_quarter = QUARTER( DATE() )
 IF m_quarter = 1
    <DO end-of-year processing>
 ENDIF


             Placed in the Public Domain by Tom Rettig Assoc.