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

 FT_SETDATE()
 Set the DOS system date
------------------------------------------------------------------------------

 Syntax

      FT_SETDATE( <dDate> ) -> <lResult>

 Arguments

     <dDate> is a Clipper date variable that you want to set the current
     DOS system date to.

     It is up to you to send in a valid date.  The
     year must be within the range 1980 through 2099.  If DOS
     thinks the date is not valid, it won't change the date.

 Returns

     <lResult> is simply the result of FT_INT86(), passed back
     to your program.

 Description

     FT_SETDATE() uses NANFOR.LIB's FT_INT86() function to invoke
     the DOS Set Date service (Interrupt 33, service 43).

 Examples


  The following program takes a date from the command line and sets
  the DOS system date:

   FUNCTION main( cDate )

      cDate := iif( cDate == nil, dtoc( date() ), cDate )
      QOut( "Setting date to: " + cDate  + "... " )
      FT_SETDATE( ctod( cDate ) )
      Qout( "Today is now: " + dtoc( date() ) )

   RETURN ( nil )


 Source: SETDATE.PRG

 Author: Glenn Scott