FUNCTION GetShortFormat
  LOCAL cSetDate, cFormat
  cSetDate = SET("DATE")
  SET DATE SHORT
  cFormat = STRTRAN(STRTRAN(STRTRAN(STRTRAN( ;
    DTOC(DATE(2033,11,22)), ;
    "22","DD"),"11","MM"),"33","YY"),"20","YY")
  SET DATE &cSetDate
  RETURN cFormat
ENDFUNC