ник: Анатолий (Киев)
Private Declare Function apiGetLocaleInfo Lib "kernel32" _
Alias "GetLocaleInfoA" (ByVal Locale As Long, _
ByVal LCType As Long, ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Private Declare Function apiSetLocaleInfo Lib "kernel32" _
Alias "SetLocaleInfoA" (ByVal Locale As Long, _
ByVal LCType As Long, ByVal lpLCData As String) As Long
Private Const LOCALE_SYSTEM_DEFAULT = &H800
Private Const LOCALE_USER_DEFAULT = &H400
Public Enum enLCType
LOCALE_SLIST = &HC ' list item separator
LOCALE_SDECIMAL = &HE ' decimal separator
LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator
LOCALE_SCURRENCY = &H14 ' local monetary symbol
LOCALE_SDATE = &H1D ' date separator
LOCALE_SSHORTDATE = &H1F ' short date format string
LOCALE_STHOUSAND = &HF ' thousand separator
LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator
End Enum