Округление числа - Microsoft Office Excel

Pinya · 18.09.2008, 17:10

Всем доброго времени суток.
Скажите пожалуйста как в VBA (Excel) округлять числа до целого.
По школьным правилам округление т е 3.5 = 4, а 3.4 = 3
Round (ячейка,число) не подходит
Мне нужно округлять (до целого) переменную, типа:

Код:

Dim a
a=21.85
Round(a, 0)
MsgBox a

И результат должен быть 21
Вот этот код почему-то не работает........

tolikman · 18.09.2008, 17:42

не round(a,0) а a=round(a,0) и будет не 21 а 22, по тем же школьным правилам.
округление до низа = int(a) '(21)
округление до верха = fix(a) '(22)

Pinya · 18.09.2008, 18:01

Спасибо. Заработало.

18.09.2008, 17:10	#1
Pinya Пользователь Регистрация: 17.12.2007 Сообщений: 37	Округление числа Всем доброго времени суток. Скажите пожалуйста как в VBA (Excel) округлять числа до целого. По школьным правилам округление т е 3.5 = 4, а 3.4 = 3 Round (ячейка,число) не подходит Мне нужно округлять (до целого) переменную, типа: Код: `Dim a a=21.85 Round(a, 0) MsgBox a` И результат должен быть 21 Вот этот код почему-то не работает........

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
При вставке 20-значного числа в ячейку происходит округление. Как избавиться?	urri_k	Microsoft Office Excel	9	25.07.2008 23:10
Суммирование и округление времени до целого	Pilot	Microsoft Office Excel	2	16.07.2008 15:02
округление в Firebird	shurik_7866	БД в Delphi	0	05.07.2007 11:10
Округление чисел в Excel	Bacardi_uk	Microsoft Office Excel	3	16.05.2007 18:27
округление	Toxa	Общие вопросы Delphi	4	15.01.2007 19:15

18.09.2008, 17:42	#2
tolikman Форумчанин Регистрация: 25.08.2008 Сообщений: 159	не round(a,0) а a=round(a,0) и будет не 21 а 22, по тем же школьным правилам. округление до низа = int(a) '(21) округление до верха = fix(a) '(22)

18.09.2008, 18:01	#3
Pinya Пользователь Регистрация: 17.12.2007 Сообщений: 37	Спасибо. Заработало.