Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Формат чи...

Тема: Формат чисел

15.06.2007 21:02:22

Кирилл

1 сообщения

Тема: Формат чисел

Как ввести число для расчетов в привычном для нас формате (разделитель запятая, а не точка), может быть существует стандартное решение для совместимости локализованной версии с VBA?

P.S. Создание форм
Автор: Кирилл от 27.04.2002 14:21:10 Источник ...

15.06.2007 21:02:22

founder

45 сообщения

RE: Формат чисел

Можно написать функцию, которая будет отлавливать запятую и менять её на точку при передаче значения в продцедуру:
Sub Test()
Dim A As String
A = InputBox("Введите число (с запятой)")
MsgBox Point(A)
End Sub
Function Point(A As String) As String
Dim I As Integer
For I = 1 To Len(A)
If Mid(A, I, 1) = "," Then
A = Left(A, I - 1) & "." & Right(A, Len(A) - I)
Point = A
Exit Function
End If
Next I
Point = A 'если запятой вообще нет
End Function
Заметь, что данная ф-я обрабатывает первую найденную запятую слева (можешь сам поменять на справа), если у тебя в строке будет больше одной запятой, остальные запятые ф-я не заменит.

P.S. Создание форм
Автор: founder от 28.04.2002 9:37:07 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Формат чи...

Поиск

Список форумов

Начало | Forums