LOCALE.SDECIMAL = 14 Locale = 2048 LCType = LOCALE.SDECIMAL result$ = GetLocaleInfo$(Locale, LCType) print result$ : end '============================================================================================================= function GetLocaleInfo$(Locale, LCType) lpLCData$ = space$(1024) + chr$(0) cchData = len(lpLCData$) calldll #kernel32, "GetLocaleInfoA", _ Locale as long, _ LCType as long, _ lpLCData$ as ptr, _ cchData as long, _ GetLocaleInfo as long if GetLocaleInfo <> 0 then GetLocaleInfo$ = left$(lpLCData$, GetLocaleInfo - 1) end function
|
|