Click above to get retro games delivered to your door ever month!

 FT_DAYTOBOW()
 Calculate no. of days between date and beginning of week
------------------------------------------------------------------------------

 Syntax

      FT_DAYTOBOW( [ <dGivenDate> ] ) -> nDays

 Arguments

     <dGivenDate> is any valid date in any valid date format.
     Defaults to current date if not supplied.

 Returns

     A positive number of days to beginning of week, range 0 to 6.

 Description

     FT_DAYTOBOW() returns the number of days to the beginning of the
     week.  Normally this will be one less than the value that
     would be returned by the Clipper function DOW(), unless the
     day for the beginning of the week has been changed with
     FT_DATECNFG().

 Examples

     dDate := CTOD( "09/15/90" )

     ? DOW( dDate )               // 7
     ? CDOW( dDate )              // Saturday
     ? FT_DAYTOBOW( dDate )       // 6

     // change beginning of week to Friday  (yeah!)
     FT_DATECNFG( , 6 )
     ? DOW( dDate )               // 7
     ? CDOW( dDate )              // Saturday
     ? FT_DAYTOBOW( dDate )       // 1

 Source: DAYTOBOW.PRG

 Author: Jo W. French dba Practical Computing