VBNet - Форум - Разделители целой и дробной части, разрядов

Вопрос: Разделители целой и дробной части, разрядов Добавлено: 12.01.10 12:39

Автор вопроса: AngryBadger

Всем привет!

Как в vb6 узнать системные разделители целой и дробной части, а также разделитель групп разрядов???
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 12.01.10 13:44
	Function GetFloatPoint() As String Static g As String If g = "" Then Dim i As Byte For i = 1 To 255 If Not IsNumeric(Chr(i)) Then If IsNumeric("3" & Chr(i) & "555") Then If Val("3" & Chr(i) & "555") < 4 Then g = Chr(i) Exit For End If End If End If Next End If GetFloatPoint = g End Function Function GetSeparatorDischarges() As String Static g As String If g = "" Then Dim i As Byte For i = 1 To 255 If Not IsNumeric(Chr(i)) Then If IsNumeric("3" & Chr(i) & "555") Then If Val("3" & Chr(i) & "555") > 3000 Then g = Chr(i) Exit For End If End If End If Next End If GetSeparatorDischarges = g End Function Ответить

Номер ответа: 2 Автор ответа: Саня ICQ: 553816426 Вопросов: 10 Ответов: 99	Профиль \| \| #2	Добавлено: 12.01.10 14:23
	Узнать эти данные можно с помощью API 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 Const LOCALE_NOUSEROVERRIDE = &H80000000 Const LOCALE_SDECIMAL = &HE Const LOCALE_SGROUPING = &H10 Const LOCALE_STHOUSAND = &HF Const LOCALE_SDATE = &H1D Const LOCALE_SSHORTDATE = &H1F Const LOCALE_SLONGDATE = &H20 Const LOCALE_SMONDECIMALSEP = &H16 Const LOCALE_SMONTHOUSANDSEP = &H17 Public Function vbGetLocaleInfo(lcInfoType&) As String Dim Locale As Long, lpLCData As String, cchData As Long lpLCData = Space(16) cchData = 16 If GetLocaleInfo(Locale, lcInfoType, lpLCData, cchData) Then vbGetLocaleInfo = Left$(lpLCData, 1) End Function Private Sub Form_Load() Dim sDecimal As String Dim sHousand As String sDecimal = vbGetLocaleInfo(LOCALE_SDECIMAL) 'Разделитель дробной части sHousand = vbGetLocaleInfo(LOCALE_STHOUSAND) 'Разделитель групп разрядов End Sub Ответить

Номер ответа: 3 Автор ответа: AngryBadger Вопросов: 33 Ответов: 245	Профиль \| \| #3	Добавлено: 12.01.10 14:52
	Супер! Спасибо! Ответить

Страница: 1 |