#define LOCALE_SSHORTDATE 0x0000001F
DECLARE Integer GetLocaleInfo in WIN32API ;
	Long locale, ;
	Long lcType, ;
	String @lplcdata, ;
	Integer cchData
cBuffer = SPACE(50)
nLen = GetLocaleInfo(0,LOCALE_SSHORTDATE,@cBuffer,50)
RETURN LEFT(cBuffer,nLen-1)