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

 getsetdate()        Get and set the date format
------------------------------------------------------------------------------
 Declaration
   getset.hdr

 Syntax
   func uint getsetdate extern
   param value uint uDateType

 Arguments
   uDateType is the new date type.

 Return
   The previous date type.

 Description
   The getsetdate() function sets the date type and returns its
   previous value.

 Example
   #define EXAMPLE_DATE
   #include example.hdr

   proc Test_getsetdate
   vardef
      uint nDateType
   enddef
   nDateType := getsetdate( DATE_ANSI )           // save and set date type
   ? "Today's date in ANSI form is   ", today()
   getsetdate( nDateType )                        // restore date type
   ? "Today's date in default form is", today()
   endproc

   proc main
   Test_getsetdate()
   endproc