Isnumeric vba
Автор |{@R@Cb задал вопрос в разделе Другие языки и технологии
Функция Isnumeric в Visual Basic 6.0 и получил лучший ответ
Ответ от Alex Ivanov[гуру]
Dim a As Double
a = IsNumeric(Text1.Text)
If a = False Then MsgBox "2"
If a = True Then MsgBox "1"
на вместо точки разделителя ставь запятую
Ответ от Алексей Сутягин[гуру]
Восприятие в качестве десятичного разделителя точки или запятой зависит от системной настройки форматов чисел в панели управления - региональные настройки! !
Можно при конвертации указать в каком языке конвертируем, можно сообщить пользователю, какой знак он должен использовать, прочитав его в константе "десятичная точка" (посмотри в справке)
Мы конвертировали в английском формате, а перед конвертацией запятую меняю на точку, чтобы принимало и с точкой и с запятой, чтобы пользователя не парить
Восприятие в качестве десятичного разделителя точки или запятой зависит от системной настройки форматов чисел в панели управления - региональные настройки! !
Можно при конвертации указать в каком языке конвертируем, можно сообщить пользователю, какой знак он должен использовать, прочитав его в константе "десятичная точка" (посмотри в справке)
Мы конвертировали в английском формате, а перед конвертацией запятую меняю на точку, чтобы принимало и с точкой и с запятой, чтобы пользователя не парить
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Функция Isnumeric в Visual Basic 6.0
Если введенное значение является числом, а не текстом. Как в VBA это делается? Какой функцией это делается?
Dim MyValue As String
MyValue = "12345"
If IsNumeric ( MyValue ) Then
Вопрос по Access. Какой функцией округлять в большую сторону?
AFAIK такой функции в VBA нет, а Round округляет по математическим правилам, т. е. Round(8.431, 2)
подробнее...