/* $DOC$
   $NAME$
      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 1990-09-15, assuming default
      // beginning of year is January 1st.
      aDateInfo := ft_Year( hb_SToD( "19900915" ) )
      ? aDateInfo[ 1 ]   //  1990
      ? aDateInfo[ 2 ]   //  1990-01-01   beginning of year
      ? aDateInfo[ 3 ]   //  1990-12-31   end of year

      // get info about current year (1991).
      aDateInfo := ft_Year()
      ? aDateInfo[ 1 ]   //  1991
      ? aDateInfo[ 2 ]   //  1991-01-01   beginning of year
      ? aDateInfo[ 3 ]   //  1991-12-31   end of year
   $SEEALSO$
      ft_DateCnfg(), ft_Week(), ft_Month(), ft_Qtr()
   $END$
 */