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

##############################################################################
###+----------+###############################################################
#+-| SET DATE |---------------------------------------------+#################
#| +----------+ The SET DATE command controls the format of |#################
#|              a date variable that is either displayed,   |#################
#|              printed or converted to a string            |#################
#+----------------------------------------------------------+#################
##############################################################################
##############################################################################
#+--| Syntax |------------------+#############################################
#|     SET DATE <Date-type>     |#############################################
#+------------------------------+#############################################
##############################################################################
##############################################################################
############+---| Description |-----------------------------------+###########
############| <Date-type>s are explained in the DATE TYPES TABLE. |###########
############|                                                     |###########
############|    ############################################     |###########
############|    #+-----------| DATE TYPES TABLE |-----------+    |###########
############|    #| Keyword                   Display Format |    |###########
############|    #|                                          |    |###########
############|    #| AMERICAN                  MM/DD/YY       |    |###########
############|    #| BRITISH                   DD/MM/YY       |    |###########
############|    #| FRENCH                    DD/MM/YY       |    |###########
############|    #| GERMAN                    DD.MM.YY       |    |###########
############|    #| ITALIAN                   DD-MM-YY       |    |###########
############|    #| ANSI                      YY.MM.DD       |    |###########
############|    #|                                          |    |###########
############|    #| Note: MM = month, DD = day and YY = year |    |###########
############|     +------------------------------------------+    |###########
############|                                                     |###########
############|  The D and E GET functions override SET DATE. Date  |###########
############|  functions, today(),ctod(), and dtoc() respect the  |###########
############|  status of SET DATE.                                |###########
############+-----------------------------------------------------+###########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Use german date values.                             |#########
#########|                                                          |#########
#########| SET DATE GERMAN             && Change the default        |#########
#########|                             &&  value to German.         |#########
#########|                                                          |#########
#########| ? ctod( "8/10/89" )         && If the date is in         |#########
#########|                             &&  German format, the       |#########
#########|                             &&  '08' is interpreted as   |#########
#########|                             &&  the day and the '10'     |#########
#########|                             &&  as the month.            |#########
#########|                                                          |#########
#########| Output:                                                  |#########
#########| 8.10.89                                                  |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Set the internal FORCE library date variable        |#########
#########| *    directly.  The variable name is __date_type and     |#########
#########| *    its type is UINT.  These are the corresponding      |#########
#########| *    date values: American=0, british=1, french=2,       |#########
#########| *    italian=3, german=4 and ansi=5.                     |#########
#########|                                                          |#########
#########| VARDEF EXTERN                                            |#########
#########|     UINT    __date_type                                  |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########|     *--- These two commands are equivalent               |#########
#########|                                                          |#########
#########|     __date_type = 1                                      |#########
#########|     SET DATE BRITISH                                     |#########
#########|                                                          |#########
#########|     *--- Set a date from an array                        |#########
#########|                                                          |#########
#########|     __date_type = darray[x]                              |#########
#########+----------------------------------------------------------+#########
##############################################################################