VPF::Какая функция отсекает лишнюю часть числа

Guest

Дата 16.4.2005, 13:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Какая функция отсекает лишнюю часть числа
например в результате вычисления получилось 120,54896
нужно чтобы значение принимало 120,55 (то есть с точностью до сотых)

boevik

Дата 16.4.2005, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Round. Только, если я правильно помню, надо давать число с точкой

Код


Msgbox Round(120.54896, 2)

--------------------

Никогда не говори никогда

Guest

Дата 16.4.2005, 13:47 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

а если я не знаю число которое получится в скобках и будет ли оно целое или с цифрами одной - десятью после запятой ?

Exception

Дата 16.4.2005, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186

Ну объяви переменную:

Код


Dim x as Single
x=Val(InputBox("Введите число:"))
Msgbox Round(x, 2)

Voldemar2004

Дата 16.4.2005, 21:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

кинь на форму Text1.Text - туда воткни число, которое тебе надо округлить
в Text2, Text3 - смотри результат

Код


' кнопочка
Text2.Text = Format(Text1.Text, "0.000\0")
Text3.Text = Format(Text1.Text, "0.\0\0")

здесь я вообще делаю без объявления переменных.

Но в реальных задачах в качестве округляемых выбираю (не смейтесь) String, потом перевожу в val(Text1.Text) - мне больше нравится.
И втыкай в Text1.Text числа не с точкой "123.232343432", а с запятой "123213,4324322".
А вообще раньше, когда нас учили C++ надо было ручками код округления писать (очень простой).
А Format есть со времен еще VB 4. smile

--------------------

i_i
(';')
(V)

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »