Click above to get retro games delivered to your door ever month!

 FT_QTR()
 Return Calendar or Fiscal Quarter Data.
------------------------------------------------------------------------------

 Syntax

      FT_QTR( [ <dGivenDate> ], [ <nQtrNum> ] ) -> aDateInfo

 Arguments

     <dGivenDate> is any valid date in any date format.  Defaults
     to current system date if not supplied.

     <nQtrNum> is a number from 1 to 4 signifying a quarter.
     Defaults to current quarter if not supplied.

 Returns

     A three element array containing the following data:

        aDateInfo[1] - The year and quarter as a character string "YYYYQQ"
        aDateInfo[2] - The beginning date of the quarter
        aDateInfo[3] - The ending date of the quarter

 Description

     FT_QTR() returns an array containing data about the quarter
     containing the given date.

     Normally the return data will be based on a year beginning
     on January 1st with weeks beginning on Sunday.

     The beginning of year date and/or beginning of week day can be
     changed by using FT_DATECNFG(), which will affect all subsequent
     calls to FT_QTR() until another call to FT_DATECNFG().

     The beginning of year date and beginning of week day may be reset
     to January 1 and Sunday by calling FT_DATECNFG() with no
     parameters.

 Examples

     // get info about quarter containing 9/15/90
     aDateInfo := FT_QTR( CTOD("09/15/90") )
     ? aDateInfo[1]   //  199003       (3rd quarter)
     ? aDateInfo[2]   //  07/01/90     beginning of quarter 3
     ? aDateInfo[3]   //  09/30/90     end of week quarter 3

     // get info about quarter 2 in year containing 9/15/90
     aDateInfo := FT_QTR( CTOD("09/15/90"), 2 )
     ? aDateInfo[1]   //  199002
     ? aDateInfo[2]   //  04/01/90   beginning of quarter 2
     ? aDateInfo[3]   //  06/30/90   end of quarter 2

     // get info about quarter 2 in current year (1991)
     aDateInfo := FT_QTR( , 2 )
     ? aDateInfo[1]   //  199102
     ? aDateInfo[2]   //  04/01/91   beginning of quarter 2
     ? aDateInfo[3]   //  06/30/91   end of quarter 2

 Source: QTR.PRG

 Author: Jo W. French dba Practical Computing