/* $DOC$
   $NAME$
      ft_Qtr()
   $CATEGORY$
      Date/Time
   $ONELINER$
      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 1990-09-15
      aDateInfo := ft_Qtr( hb_SToD( "19900915" ) )
      ? aDateInfo[ 1 ]   //  199003       (3rd quarter)
      ? aDateInfo[ 2 ]   //  1990-07-01   beginning of quarter 3
      ? aDateInfo[ 3 ]   //  1990-09-30   end of week quarter 3

      // get info about quarter 2 in year containing 1990-09-15
      aDateInfo := ft_Qtr( hb_SToD( "19900915" ), 2 )
      ? aDateInfo[ 1 ]   //  199002
      ? aDateInfo[ 2 ]   //  1990-04-01   beginning of quarter 2
      ? aDateInfo[ 3 ]   //  1990-06-30   end of quarter 2

      // get info about quarter 2 in current year (1991)
      aDateInfo := ft_Qtr( , 2 )
      ? aDateInfo[ 1 ]   //  199102
      ? aDateInfo[ 2 ]   //  1991-04-01   beginning of quarter 2
      ? aDateInfo[ 3 ]   //  1991-06-30   end of quarter 2
   $SEEALSO$
      ft_DateCnfg(), ft_Week(), ft_Month(), ft_Year()
   $END$
 */