Как определить символ десятичного разделителя?

@Vitalina · Регистрация: 13.06.2007

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, как можно определить в программе какой символ является десятичным разделителем '.' или ','

Заранее всем благодарен

@Alexey · 02.07.2007, 19:40

Public Const LOCALE_SDECIMAL = &HE

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

Public Function DecSeparator() As String
Dim s As String
s = Space(1)
GetLocaleInfo 0, LOCALE_SDECIMAL, s, 1
DecSeparator = s
End Function

---------------
http://www.relib.com/topic.asp?id=703907&tp=2

@Vitalina · 02.07.2007, 20:31 **[ТС]**

Огромное спасибо !

@Vitalina 0 / 0 / 0 Регистрация: 13.06.2007 Сообщений: 29
		1
	Как определить символ десятичного разделителя? 02.07.2007, 19:20. Показов 1544. Ответов 2 Метки нет (Все метки) Подскажите, пожалуйста, как можно определить в программе какой символ является десятичным разделителем '.' или ',' Заранее всем благодарен 0

@Alexey 0 / 2 / 3 Регистрация: 27.03.2012
	02.07.2007, 19:40	2
	Public Const LOCALE_SDECIMAL = &HE 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 Public Function DecSeparator() As String Dim s As String s = Space(1) GetLocaleInfo 0, LOCALE_SDECIMAL, s, 1 DecSeparator = s End Function --------------- http://www.relib.com/topic.asp?id=703907&tp=2 0

@Vitalina 0 / 0 / 0 Регистрация: 13.06.2007 Сообщений: 29
	02.07.2007, 20:31 [ТС]	3
	Огромное спасибо ! 0

Опции темы