/* $DOC$
   $NAME$
      ft_LDay()
   $CATEGORY$
      Date/Time
   $ONELINER$
      Return last day of the month
   $SYNTAX$
      ft_LDay( [ <dDateToChk> ] ) -> dLastDay
   $ARGUMENTS$
      <dDateToChk> is a date within a month for which you want to find
      the last date of that month.  If not passed or is an incorrect
      type, defaults to current system date.
   $RETURNS$
      A Clipper date value representing the last date of the month.
   $DESCRIPTION$
      This function will return the last day of the month of the date
      passed, or the last day of the current month if no argument is
      supplied.
   $EXAMPLES$
      ? ft_LDay( 0d19900915 )        // 1990-09-30
      ? ft_LDay()                    // 1991-03-31  (current month)
   $SEEALSO$
      ft_FDay()
   $END$
 */