Tag Archives: CENTURY

SP_SETCENT

Posted on by vivaclipper 
SETCENT()

  Short:
  ------
  SETCENT() Determines if century is on/off

  Returns:
  --------
  <lCentury> => Century is on/off

  Syntax:
  -------
  SETCENT([lCentury])

  Description:
  ------------
  Returns current SET CENTURY setting and optionally
  sets century on/off

  [lCentury]  True = ON False = OFF

  Examples:
  ---------
   lOldcentury := SETCENT(.f.)   //  SET CENTURY OFF

   // code

   SETCENT(lOldcentury)

  Source:
  -------
  S_SETCEN.PRG

 

FT_DOY

Posted on by vivaclipper 
FT_DOY()
 Find number of day within year

 Syntax

      FT_DOY( <dDate> ) -> <nResult>

 Arguments

     <dDate> is a date in the form "mm/dd/yy" or "mm/dd/yyyy"

 Returns

     Return numeric position of day within the year.
     Return NIL if parameter does not conform.

 Description

     Finds the day number, considering 01/01 as day 1
     Handles dates with CENTURY ON|OFF, to allow for 21st century.
     Date validation must be external to this function.

 Examples

     These code fragments find the day number, given a date.

     // literal character date
     dDate  := CTOD("01/01/91")
     nDayNum := FT_DOY(dDate)              // result:  1

     // presume DOS date to be 01/06/91
     nDayNum := FT_DOY(DATE())             // result:  6

     // date input
     cDate  := SPACE(8)
     @ 4,10 get cDate PICT "##/##/##"      // input 07/04/91
     READ
     nDayNum := FT_DOY(CTOD(cDate))        // result: 185

     // last day of year
     nDayNum := FT_DOY(CTOD("12/31/91"))    // result: 365

     For a demonstration of this function, compile and link the
     program WOY.PRG in the Nanforum Toolkit source code.

 Source: WOY.PRG

 Author: Forest Belt, Computer Diagnostic Services, Inc.