SET_DATE()

  Short:
  ------
  SET_DATE() Sets and restores date format

  Returns:
  --------
  <nFormat> => previous SET DATE format 1-5

  Syntax:
  -------
  SET_DATE([nFormatNew])

  Description:
  ------------
  Return current SET DATE setting <nFormat> and
  optionally set to new format [nFormatNew]

  [nFormatNew] =    1  American
                    2  British/French
                    3  German
                    4  ANSI
                    5  Italian

  Examples:
  ---------
   nOldformat := SET_DATE(5)

   ** SET TO ITALIAN

   * code

   * more code

   SET_DATE(nOldformat)   // restore to prior setting

  Source:
  -------
  S_SETDAT.PRG