Val и округление

[Aerus]

Есть 2 значения

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

i=2.66
m=3
k = (Val(i)+Val(m))/2

Ответ будет 3

Я так понял, что val еще и округляет значение.
Подскажите пожалуйста, каким образом можно оставить 2 знака после запятой ?

Я читал тему по-округлению вот здесь: http://bbs.vbstreets.ru/viewtopic.php?p=6619747#6619670
Проблема в том, что с Mid(переменная, 1, InStr(переменная, ",") + 2) у меня ячейка просто пустой становиться..

[burik]

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

Dim i As Single
i = Val("2.66")

Будет 2.66

Для округления есть функция Round(число, количество знаков после запятой)
А если тебе надо не округлить, а отбросить лишние цифры, то так:

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

strN = "2,35987"
j = CSng(Mid$(strN, 1, InStr(1, strN, ",") + 2))

[alibek]

Декларируй переменные с указанием типа и будет тебе щастье.

[Aerus]

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

Dim i As Single
i = Val("2.66")

Будет 2.66

Для округления есть функция Round(число, количество знаков после запятой)
А если тебе надо не округлить, а отбросить лишние цифры, то так:

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

strN = "2,35987"
j = CSng(Mid$(strN, 1, InStr(1, strN, ",") + 2))

Спасибо, но ты написал Val("2.66"), а мне нужно чтобы она данные с переменной брало, там не статистическое значение.

Декларируй переменные с указанием типа и будет тебе щастье.

А можно пример ? Или это в смысле Dim lala As Integer?

[Belkin]

Aerus
Все зависит от настроек "Язык и региональные настройки" в панели управлени. Если там у тебя запятая, i=2.75 будет выведено как 2
Но если в настройках точка, то будет 2.75

[Aerus]

Belkin
Спасибо огромное! Теперь все как нужно работает.

[Viper]

Об округлениях и преобразованиях смотреть тут

[Aerus]

Viper
Спасибо, узнал много нового.