| |
|
|
| | Как программно, при открытии базы данных, изменить настройки региональных параметров Windows,- разделителя целой и дробной части и краткий формат даты. | |
| |
| |
| |
|
|
| | Через API, но...
Если вы делаете подвесной потолок с подсветкой из 12 вольтовых лампочек, вы же не станете во всем доме в сети понижать напряжение. Соседям-то это не понравится, и , боюсь, такие действия могут отразиться на состоянии вашего здоровья. | |
| |
| |
| |
|
|
| | 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 | |
| |
| |
