end-of-quarter ( timestamp -- timestamp' )


Vocabulary
calendar

Inputs
timestampan object


Outputs
timestamp'an object


Definition
USING: accessors kernel math ;

IN: calendar

: end-of-quarter ( timestamp -- timestamp' )
dup quarter 1 - 3 * 3 + >>month end-of-month ; inline