#DEFINE LOCALE_SSHORTDATE	0x1F
#DEFINE LOCALE_SLONGDATE	0x20
#DEFINE LOCALE_USER_DEFAULT	0x400

DECLARE INTEGER GetLocaleInfo IN kernel32.dll INTEGER nLocale, INTEGER nType, STRING @ pBuffer, INTEGER nBufferSize

?GetLocaleInfoEx(LOCALE_SSHORTDATE)
?GetLocaleInfoEx(LOCALE_SLONGDATE)

FUNCTION GetLocaleInfoEx(nType)
	LOCAL lcInfo, lnRet
	lcInfo = SPACE(256)
	lnRet = GetLocaleInfo(LOCALE_USER_DEFAULT, nType, @lcInfo, 256)
	IF lnRet > 0
		RETURN LEFT(lcInfo,lnRet-1)
	ELSE
		RETURN '' && Error - call GetLastError, FormatMessage API's for error information
	ENDIF
ENDFUNC