$FUNCNAME$
   FT_YEAR()
$CATEGORY$
   Date/Time
$ONELINER$
   Return calendar or fiscal year data
$SYNTAX$
   FT_YEAR( [ <dGivenDate> ] ) --> aDateInfo
$ARGUMENTS$
   <dGivenDate> is any valid date in any date format.  Defaults
   to current system date if not supplied.
$RETURNS$
   A three element array containing the following data:

      aDateInfo[1] - The year as a character string "YYYY"
      aDateInfo[2] - The beginning date of the year
      aDateInfo[3] - The ending date of the year
$DESCRIPTION$
   FT_YEAR() returns an array containing data about the year
   containing the given date.

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

   The beginning of year date can be changed by using FT_DATECNFG(),
   which will affect all subsequent calls to FT_YEAR() until another
   call to FT_DATECNFG().

   The beginning of year date may be reset to January 1 by calling
   FT_DATECNFG() with no parameters.
$EXAMPLES$
   // Get info about year containing 9/15/90, assuming default
   // beginning of year is January 1st.
   aDateInfo := FT_YEAR( Ctod("09/15/90") )
   ? aDateInfo[1]   //  1990
   ? aDateInfo[2]   //  01/01/90     beginning of year
   ? aDateInfo[3]   //  12/31/90     end of year

   // get info about current year (1991).
   aDateInfo := FT_YEAR()
   ? aDateInfo[1]   //  1991
   ? aDateInfo[2]   //  01/01/91   beginning of year
   ? aDateInfo[3]   //  12/31/91   end of year
$SEEALSO$
   FT_DATECNFG(), FT_WEEK(), FT_MONTH(), FT_QTR()
$Author: itk $
   Jo W. French dba Practical Computing
$END$
