Маска числа

[Artur KakTus]

Здравствуйте, простите за глупый вопрос, но как задать в текстбоксе маску числа. У меня дробное число выводится через запятую, а мне нужно через точку. (я иногда использую для расчетов значения тектбоксов, а с помощью val можно захватить только целую часть, а то что после запятой игнорируется (если не стоит точка разделитель)).
Подскажите как мне задать разделитель дробного числа не запятой, а точкой. А может есть функция, которая по подобию Val захватит полностью число (только с запятой, отделяющей дробную часть)

[alibek]

CSng.
А еще лучше, иди в "Региональные настройки" в панели управления и задай точку в качестве разделителя.

[Artur KakTus]

Спасибо Alibek. Точку разделитель в региональных настройках найти не смог, а вот CSng помогло. Именно так как я хотел. Спасибо тебе за то, что уже не первый раз даешь мне дельные советы.

[raros]

Извините, но у меня та же проблема!
Что именно делает CSng?

[alibek]

CInt, CLng, CSng, CDbl, CCur переводят из строки в число в соответствии с региональными настройками (разделителем дробной и целой части и т.п.). Format$ переводит из числа в строку в соответствии с указанным форматом и региональными настройками.
Val и Str$ всегда используют фиксированный формат чисел (нет ведущего нуля, разделитель -- десятичная точка, разделителей групп нет).

[Artur KakTus]

2 Raros. Как Вы выдели из моего вопроса, обычная функция VAL возвращает число, находящиеся в текстбоксе (а не строку). Но при работе с дробніми числами VAL распознает число только до запятой (после как я понимаю для этой функции идет строка), что не всегда удобно, т.к. возникает погрешность вычислений. (Однако если ввести дробное число через точку, то ВАЛ без проблем возвращант дробное число). Особенно если значение текстбокса вычисляется самой программой (VB отображает дробное число через запятую), а потом снова используется в расчетах мы теряем дробную часть. Чтобы нормально использовать дробное значение (написанное через запятую) нужно (по совету Алибека) использовать функцию CSng следующим сспособом:
CSng(drobtext.textbox)
Это позволяет сохранить точность вычислений

[raros]

Спасибо большое!

[raros]

Обьясните пожалуйста, что такое ведущий ноль?

[alibek]

0.7 - с ведущим нулем
.7 - без ведущего нуля

[raros]

Где они применяются и в чём существенная разница между ними?

[tyomitch]

Да нет никакой разницы, в России принято с нулём писать, а в США - без, вот и всё.

[raros]

Понятно! Спасибо!

[Matew]

А вот так можно контролировать ввод в массив элементов к тому же ))

Private Sub txtCeny_Change(Index As Integer)
Static oldText(0 To 100) As String
Dim i As Integer
For i = 1 To Len(txtCeny(Index).Text)
If InStr("0123456789.", Mid(txtCeny(Index).Text, i, 1)) = 0 Then
MsgBox "Напишите арабскими цифрами с точкой"
txtCeny(Index).Text = oldText(Index)
End If
Next i
If Val(txtCeny(Index).Text) > 9999 Then
MsgBox "Ïî-ìîåìó ÷èñëî ñëèøêîì áîëüøîå!"
txtCeny(Index).Text = oldText(Index)
Else
oldText(Index) = txtCeny(Index).Text
End If

End Sub

[Prickly]

А лучше вот так:

Код: Выделить всё


Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Df(KeyAscii)
End Sub

Private Function Df(theParam As Integer)
  If InStr("1234567890." & Chr(8), Chr(theParam)) > 0 Then
    Df = theParam
  Else
    Df = 0
  End If
End Function