FT_FDAY()
 Return first day of the month
------------------------------------------------------------------------------

 Syntax

      FT_FDAY( [ <dDateToChk> ] ) -> dFirstDay

 Arguments

     <dDateToChk> is a date within a month for which you want to find
     the first date of that month.  If not passed or is an incorrect type,
     defaults to current system date.

 Returns

     A Clipper date value representing the first date of the month.

 Description

     This function will return the first day of the month of the date
     passed, or the first day of the current month if no argument is
     supplied.

 Examples

     dDate := CTOD( "09/15/90" )
     ? FT_FDAY( dDate )             // 09/01/90
     ? FT_FDAY()                    // 03/01/91  (current month)

 Source: FIRSTDAY.PRG

 Author: Jeff Bryant