Помогите пожалуйста с функцией " Val"

[kuybyshev]

Функция Val возвращает число, содержащееся в строке аргументе как числовое значение ,в качестве разделителя используется только точка "." (ПРИМЕР " 123.22") Мне нужно что-бы разделителем была запятая ","(ПРИМЕР " 123,22")При запятой Функция Val в значении переменной отбрасывает дробную часть числа (ПРИМЕР " 123") Возможно-ли это? Помогите,пожалуйста!

[SLIM]

Насколько я знаю нет!!! Сам паридся когда-то

[kuybyshev]

Самое интересное то ,что но операционке ВИНДОВЗ СЕРВЕР 2000 почему-то когда я ввожу разделительный знак с правой дополнительной части клавиатуры ,то дробная часть не отбрасывается,но на скоко я знаю -это не должно зависеть от операционной системы! Как можно выйти из сложившейся ситуации?

Option Explicit
Dim D As Currency
Dim SH As Currency
Dim H As Currency
Dim S As Currency
Dim V As Currency
Dim P As Currency
Dim PS As Currency

Private Sub Command1_Click()
D = Val(Text1.Text)
SH = Val(Text2.Text)
H = Val(Text3.Text)
S = D * SH
V = S * H
P = (D + SH) * 2
PS = P / S
Text4.Text = S
Text5.Text = V
Text6.Text = P
Text7.Text = PS
End Sub

[SLIM]

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

Private Sub Command1_Click()
Select Case 0
     Case Is = InStr(1, Text1.Text, ".")
        Text1.Text = Val(Replace(Text1.Text, ".", ","))
     Case Is = InStr(1, Text2.Text, ".")
        Text1.Text = Val(Replace(Text2.Text, ".", ","))
     Case Is = InStr(1, Text3.Text, ".")
        Text1.Text = Val(Replace(Text3.Text, ".", ","))
End Select
    D = Text1.Text
    SH = Text2.Text
    H = Text3.Text
    S = D * SH
    V = S * H
    P = (D + SH) * 2
    PS = P / S
    Text4.Text = S
    Text5.Text = V
    Text6.Text = P
    Text7.Text = PS
End Sub

Но учти, что при отбрасывании части происходит еще и округление к ближайшему четному числу. Например если S будет 0.25 то у тебя будет ошибка - на ноль то делить нельзя. А при преобразовании 1.25 у тебя выйдет 2....

[Хакер]

Во-первых,

это не должно зависеть от операционной системы!

это должно зависеть и зависит от национальных настроек и смивола, указанного там (в национальных настройках) в качестве разделителя.

Во-вторых, читайте статью.

[Proxy]

Региональные стандарты. "." и "," это разделители целой и дробной части в разных стандартах. А вот пользователя просить вводить точку всегда - это неразумно. Лучше после того, как пользователь что-либо ввёл исправить программно. Насколько я понимаю, точка действует всегда как разделитель, но могу и ошибаться. В любом случае перед использованием cint, clng, ..., val, лучше убедиться в корректности вводимых данных.

[Williams]

Если уж очень хочется, то можно сделать реплейсмент:

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

Dim sInput As String
sInput = ...
sInput = Replace (sInput, ",", ".")

[Хакер]

Proxy

Насколько я понимаю, точка действует всегда как разделитель, но могу и ошибаться. В любом случае перед использованием cint, clng, ..., val, лучше убедиться в корректности вводимых данных.

Ты тоже читай статью.

[SLIM]

Williams ты явно топик с самого начала не читал...Причем твой код неверный. Он заменяет запятую на точку.

[kuybyshev]

Спасибо за помощ,я не програмист и просто благодарен всем в решении проблемы! Но вот может гдето ошибка? Потому что на практике в текстбоксе1 при нажатии команд1 исчезает дробная часть числа и результат получается неточным!
Private Sub Command1_Click()

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

Select Case 0
     Case Is = InStr(1, Text1.Text, ".")
        Text1.Text = Val(Replace(Text1.Text, ".", ","))
     Case Is = InStr(1, Text2.Text, ".")
        Text1.Text = Val(Replace(Text2.Text, ".", ","))
     Case Is = InStr(1, Text3.Text, ".")
        Text1.Text = Val(Replace(Text3.Text, ".", ","))
End Select
    D = Text1.Text
    SH = Text2.Text
    H = Text3.Text
    S = D * SH
    V = S * H
    P = (D + SH) * 2
    PS = P / S
    Text4.Text = S
    Text5.Text = V
    Text6.Text = P
    Text7.Text = PS
End Sub

[SLIM]

Так тебе нужно что? Чтобы дробным было? Тогда к чему

Мне нужно что-бы разделителем была запятая ","(ПРИМЕР " 123,22")При запятой Функция Val в значении переменной отбрасывает дробную часть числа (ПРИМЕР " 123") Возможно-ли это?

Что непонятно что тебе конкретн нужно. Я ведь говорю, точности ты все равно не получшь, округление+отнимание дробной части = никакой точности...

[kuybyshev]

Мне нужно чтобы вводимые в текстбоксы числа при разделении дробной части запятой, умножались и делились так как я их ввёл,а не умножались и делились только целой частью числа

[Proxy]

Вы статью-то почитайте. Я всё что не знал о округлении понял после прочтения.

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

Select Case 0
     Case Is = InStr(1, Text1.Text, ".")
        Text1.Text = Val(Replace(Text1.Text, ".", ","))
     Case Is = InStr(1, Text2.Text, ".")
        Text1.Text = Val(Replace(Text2.Text, ".", ","))
     Case Is = InStr(1, Text3.Text, ".")
        Text1.Text = Val(Replace(Text3.Text, ".", ","))
End Select

Боже, что это: "Text1.Text =" везде. Ты точно этого хотел?

Что непонятно что тебе конкретн нужно. Я ведь говорю, точности ты все равно не получшь, округление+отнимание дробной части = никакой точности...

Тоже почитай.

[kuybyshev]

Да я читал статью " Кстати, простейший способ получить символ разделения целой и дробной частей – вызвать функцию Format следующим образом

Format$(0, ".")

Этот вызов вернет текущий разделитель целой и дробной частей числа."
Я не могу применить на практике

[SLIM]

АААА. Код неверный. Нужно что бы при условии неравности 0 а не равности выполнялись действия. Да простят меня святые великомученники.

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

If InStr(1, Text1.Text, ".") > 0 Then
    Text1.Text = Replace(Text1.Text, ".", ",")
End If

If InStr(1, Text2.Text, ".") > 0 Then
    Text2.Text = Replace(Text2.Text, ".", ",")
End If

If InStr(1, Text3.Text, ".") > 0 Then
    Text3.Text = Replace(Text3.Text, ".", ",")
End If

    D = Text1.Text
    SH = Text2.Text
    H = Text3.Text
    S = D * SH
    V = S * H
    P = (D + SH) * 2
    PS = P / S
    Text4.Text = S
    Text5.Text = V
    Text6.Text = P
    Text7.Text = PS


Вот ентот работет, проверял

[kuybyshev]

Вроде-бы для меня и хорошее решение
Select Case 0
Case Is = InStr(1, Text1.Text, ".")
Text1.Text = Val(Replace(Text1.Text, ".", ","))
Case Is = InStr(1, Text2.Text, ".")
Text1.Text = Val(Replace(Text2.Text, ".", ","))
Case Is = InStr(1, Text3.Text, ".")
Text1.Text = Val(Replace(Text3.Text, ".", ","))
End Select
но вот говорю что почемуто именно в текстбоксе1 ввожу 10,7 а при нажатии команд1 получаю 10

[kuybyshev]

СУПЕРРР!!!!
Вы не представляете как я вам благодарен!!!
Большое,огромное,СПАСИБО!

[Williams]

Вроде-бы для меня и хорошее решение
Select Case 0
Case Is = InStr(1, Text1.Text, ".")
Text1.Text = Val(Replace(Text1.Text, ".", ","))
Case Is = InStr(1, Text2.Text, ".")
Text1.Text = Val(Replace(Text2.Text, ".", ","))
Case Is = InStr(1, Text3.Text, ".")
Text1.Text = Val(Replace(Text3.Text, ".", ","))
End Select
но вот говорю что почемуто именно в текстбоксе1 ввожу 10,7 а при нажатии команд1 получаю 10

Не вижу смысла проверять при помощи InStr, по-скольку быстродействие в данном случае не имеет никакого значения. Заменить без всяких проверок.

Вы бы еще Text1.Text = Str(Val(Replace(Text1.Text, ".", ",", InStr(1, Text1.Text, ".") - 1))) написали

[SLIM]

Да забудь ты уже ентот код. Неверный он я же сказал

[kuybyshev]

Да я понял!Вот последний то что нада! За него СПАСИБО!

[Viper]

Во-вторых, читайте статью.

А в статье то опечатки оказывается есть... Эххх... каюсь.

[SLIM]

А в статье то опечатки оказывается есть... Эххх... каюсь.

Орфографические или символьно-кодово-функционально-переменно-константно-типоданные?

[Viper]

Орфографические, и в одном месте восьмеричное число мягко говоря неправильное.
И заканчиваем на этом оффтоп.