Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Округление целых чисел / 6 сообщений из 6, страница 1 из 1
27.11.2014, 12:45
    #38818274
vdekameron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление целых чисел
Нужно округлить:- если 154 до 150, если 156 до 160. ну и если 155 то до 160. Знаю как округлять десятичные дроби- с помощью round. А как целые понятия не имею. Спасибо заранее за помощь
...
Рейтинг: 0 / 0
27.11.2014, 12:54
    #38818286
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление целых чисел
vdekameronНужно округлить:- если 154 до 150, если 156 до 160. ну и если 155 то до 160. Знаю как округлять десятичные дроби- с помощью round. А как целые понятия не имею. Спасибо заранее за помощь
Поделить на 10, округлить, умножить на 10.
...
Рейтинг: 0 / 0
27.11.2014, 13:34
    #38818333
vdekameron
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление целых чисел
PA, спасибо, что-то я логику забыл включить когда создавал тему
...
Рейтинг: 0 / 0
27.11.2014, 18:55
    #38818741
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление целых чисел
если в ячейке, то можно =ОКРУГЛ(155; -1)
...
Рейтинг: 0 / 0
27.11.2014, 19:14
    #38818757
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление целых чисел
в бейсике можно так
Код: vbnet
1.
2.
MsgBox Application.Evaluate("Round(154, -1)")
MsgBox Application.WorksheetFunction.Round(155, -1)
...
Рейтинг: 0 / 0
27.11.2014, 20:46
    #38818829
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление целых чисел
sergeyvgв бейсике можно такНе в "бейсике" (нет такой буквы), а в VBA в Excel.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Округление целых чисел / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]