'get format of currency with API call GetLocalInfo Public Const LOCALE_USER_DEFAULT = &H400 Public Const LOCALE_SCURRENCY = &H14 ' local monetary symbol Public Const LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbol Public Const LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator Public Const LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator Public Const LOCALE_SMONGROUPING = &H18 ' monetary grouping Public Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByValReturnlocale
As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long ' 'locale
specific information ' Publicsub
GetInfo()dim
buffer
As String * 100dim
dl& 'compare this with 'Start/Settings/Control Panel/Regional Settings/Currency #If Win32 Then dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCURRENCY, buffer, 99) Form1.list1.AddItem " Local curency symbol: " & LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SINTLSYMBOL, buffer, 99) Form1.list1.AddItem "international
currency symbol: " & LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SMONDECIMALSEP, buffer, 99) Form1.list1.AddItem "decimaal
separator: " & LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SMONTHOUSANDSEP, buffer, 99) Form1.list1.AddItem " Thousand separator: " & LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SMONGROUPING, buffer, 99) Form1.list1.AddItem " Number of digits in group: " & LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ICURRDIGITS, buffer, 99) Form1.list1.AddItem " Number of digits behind the decimal separator: " & LPSTRToVBString(buffer) #Else Form1.list1.AddItem " Not implemented under Win16" #End If End Sub ' ' Extracts a VB string from abuffer
containing a null terminated ' string Public Function LPSTRToVBString$(ByVal s$)dim
nullpos& nullpos& = InStr(s$, Chr$(0)) If nullpos > 0 Then LPSTRToVBString = Left$(s$, nullpos - 1) Else LPSTRToVBString = ""end
If End Function