Как получить настройку «Цифровая группировка Windows»

Question

В региональной панели управления Windows имеется настройка «Цифровая группировка», которая указывает, используется ли индийская система нумерации, где символ разделителя тысяч группирует первые три цифры слева десятичного числа вместе, а затем каждые две цифры по сравнению с более общей группировкой, где каждые три цифры слева десятичные группируются вместе.

Как получить эту настройку в VB6?

Или, в качестве альтернативы, что является лучшим способом определить, когда использовать эту индийскую систему нумерации?

Answer 1

Private Const LOCALE_SGROUPING = &H10 
Private Const LOCALE_USER_DEFAULT = &H400 
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 Function Grouping() As String 
    Dim retVal As Long, sBuf As String 
    sBuf = String(255, vbNullChar) 
    retVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SGROUPING, sBuf, Len(sBuf)) 
    Grouping = Left$(sBuf, retVal - 1) 
End Function 

Пример: Выведет: 3;0 для 123.456,789 и 3;2;0 для 12.34.56,789

Answer 2

Как Bob77 сказал в комментарии, почему бы просто не позволить FormatNumber сделать это для вас? Он будет применять группировку цифр из региональных настроек. Как это

MsgBox(FormatNumber(123456, , , , vbUseDefault)) 

"воздух код" - Я не пробовал это сам