| Вопрос: Округление до заданных значений | Добавлено: 07.06.07 17:05 |
Автор вопроса:  Сергей | Web-сайт: uts.dp.ua | ICQ: 369608887 |
|
Здраствуйте.
Есть такая задача: Стандартные диаметры: 100, 125, 140, 160 и т.д. Значение 120 необходимо округлить до ближайшего стандартного диаметра. Ответ должен быть - 125 Если 138, то естественно - 140 Если 104, то 100. Спасибо. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #1 | Добавлено: 07.06.07 22:43 |
|
Select Case юзай...
например: Select Case D Case 0 to 112 D = 100 и так далее |
||
|
Номер ответа: 2 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #2 | Добавлено: 08.06.07 09:05 |
| http://bbs.vbstreets.ru/viewtopic.php?p=6663680#6663680 | ||
|
Номер ответа: 3 Автор ответа: Сергей ICQ: 369608887 Вопросов: 7 Ответов: 24 |
Web-сайт: Профиль | | #3 | Добавлено: 08.06.07 14:26 |
|
http://bbs.vbstreets.ru/viewtopic.php?p=6663680#6663680
Я прочитал Огромное спасибо, все работает |
||
|
Номер ответа: 4 Автор ответа: СергейICQ: 369608887 Вопросов: 7 Ответов: 24 |
Web-сайт: Профиль | | #4 | Добавлено: 08.06.07 14:27 |
|
-АлександР- Ваш вариант тоже попробую, только позже. Пока нахожусь в эйфории.
Тоже спасибо. |
||
|
Номер ответа: 5 Автор ответа: СергейICQ: 369608887 Вопросов: 7 Ответов: 24 |
Web-сайт: Профиль | | #5 | Добавлено: 08.06.07 15:13 |
|
http://meg.ifolder.ru/2277676
Вот по этой ссылоске я выложил пример. Там пару ошибок есть, наверно несерьезных. По моему я неправельно указал типы данных. Наверно даже в этой строке D = CInt(GetClosest(New Integer() {100, 125, 140}, CInt(Dr))) |
||
Страница: 1 |