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

 settoday()          Set system date
------------------------------------------------------------------------------
 Declaration
   system.hdr

 Syntax
   func logical settoday extern
   param value date dDate

 Arguments
   dDate is the new date value.

 Return
   A logical indicating if system date was successfully changed.

 Description
   The settoday() function changes the computer's system date.
   Valid year values are only between 1980 and 2099.

 Example
   #define EXAMPLE_SYSTEM
   #include example.hdr

   proc Test_settoday
   vardef
      date dDate
   enddef
   dDate := today()                // save current date
   settoday( ctod( "12/31/99" ) )  // change date
   ? "Date changed to", today()
   wait
   settoday( dDate )               // reset correct date
   ? "Date reset to  ", today()
   endproc

   proc main
   Test_settoday()
   endproc