19.12.2006, 12:15
общий
это ответ
Здравствуйте, Мотя!
В приложении функция возвращающая user default decimal separator(взята и переделана из MSDN), используя WindowsAPI
Приложение:
Option Explicit Private Declare Function GetLocaleInfo 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 GetUserDefaultLCID% Lib "kernel32" () Private Const LOCALE_SDECIMAL = &HEFunction GetDS() As String Dim Symbol As String Dim iRet As Long Dim lpLCDataVar As String Dim Pos As Integer Dim Locale As Long Locale = GetUserDefaultLCID() iRet = GetLocaleInfo(Locale, LOCALE_SDECIMAL, lpLCDataVar, 0) Symbol = String$(iRet, 0) iRet = GetLocaleInfo(Locale, LOCALE_SDECIMAL, Symbol, iRet) Pos = InStr(Symbol, Chr$(0)) If Pos > 0 Then Symbol = Left$(Symbol, Pos - 1) End If GetDS = SymbolEnd Function