Региональные настройки. !! ?? :(

[ALX_2002]

Пиплы..., во первых - здраствуйте..., а во вторых - оочень нужна ваша помошь... У меня возник банальный вопрос... - Как через api или через сам VB из региональных настроек получить вид разделителя между целой и дробной частью... т.е ( "." или ",") ?

P.S Вот так всегда, то ВОТ ОНО ЛЕЖИТ, но на хрен не нужно, то припёрло аж жуть - А НИГДЕ НЕТУ !

Помогите плииз.

[NJ]

Да. И сам искал когда-то... Вот:

Код: Выделить всё

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

Const LOCALE_SDECIMAL = &HE '  decimal separator
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SYSTEM_DEFAULT = &H800

Function getDecimalPoint() As String
Dim lpBuffer As String * 100
Dim dl&

dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, lpBuffer, 99)
getDecimalPoint = Left$(lpBuffer, InStr(lpBuffer, Chr$(0)) - 1)
End Function


Да! Там ещё много чего можно узнать при помощи GetLocaleInfo... Смотри константы на LOCALE_, если надо.

[boevik]

Без API можно так:

Код: Выделить всё

Mid(1/2, 1, 1)

[ALX_2002]

Пиплы - грасьес огромный . Ща пойду тестить.

[goro]

А вот очень серьезный проект

[ALX_2002]

Всё.. Всем спасиб... Всё пашет.... Огроменное грасьес