XPdateFormat()
  Return Country specific date format
------------------------------------------------------------------------------

  Function:    XPdateFormat()

  Syntax:      XPdateFormat() --> cDateFormat

  Returns:     The Date format string to be submitted to the
               SET DATE FORMAT TO cString command. the format is
               the one for the currently selected country.

               Always four digits for century are returned, use
               strTran() if you don't want century on.

  Usage:       Assuming Country is 31 (NL)
               ? XPdateFormat() --> DD-MM-YYYY
               or Japan:
               ? XPdateFormat() --> YYYY-MM-DD

               Submit to Clipper:
               SET DATE FORMAT TO XPdateFormat()

               Or, no Century:
               SET DATE FORMAT TO StrTran(XPdateFormat(),'YYYY','YY')