EOQTR(<expD>)
 Evaluates the end of the current calendar quarter.
 Returns <expD> last day of calendar quarter in which parameter date falls.

 Return date     Dates between
 ═══════════     ══════════════
    03/31/yy     01/01 -- 03/31
    06/30/yy     04/01 -- 06/30
    09/30/yy     07/01 -- 09/30
    12/31/yy     10/01 -- 12/31

 * Is today the end-of-quarter?
 IF DATE() = EOQTR( DATE() )
    <DO end-of-quarter processing>
 ENDIF


             Placed in the Public Domain by Tom Rettig Assoc.