Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Округлить до 10, в большую или меньшую сторону 
:(
    Опции темы
Staruha
Дата 30.12.2004, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Имеется значение нужно его округлить , например 48 до 50 или 44 до 40


--------------------
Возмездие настигнет
PM MAIL   Вверх
boevik
Дата 30.12.2004, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

round(n/10)*10



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
cardinal
Дата 30.12.2004, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Или по принципу:
Код

Option Explicit

Private Sub Command1_Click()

   Dim i As Integer

   i = 44
   i = ((i + 5) \ 10) * 10
   i = 48
   i = ((i + 5) \ 10) * 10

End Sub

Думаю так бытрее (вызова функции нет)...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Staruha
Дата 30.12.2004, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Спасибо все работает
Код

Range("K" & rIn).Value = Round((Range("I" & rIn).Value*с) / 10) * 10


cardinal щас почитаю про round , а потом твой вариант попробую.Я думаю будет что-то типа

Код

Range("K" & rIn).Value =( (Range("I" & rIn).Value*с)+5) / 10)* 10

Если быстрее тогда на нем остановлюсь. smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
cardinal
Дата 30.12.2004, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Старуха, не /, а \ smile


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Staruha
Дата 31.12.2004, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Ух ты ,а я смотрю не работает. smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
Staruha
Дата 1.1.2005, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Интересно ,а
Код
round(n/10)*10

как правильно . \ / - полюбому работает.
Т.к. таблица итоговая в ней строк меньше 100. оба кода работают одинаково.Незнаю что выбрать. smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
Vach
Дата 2.1.2005, 00:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
/= (деление), \= (целочисленное деление)
PM MAIL ICQ   Вверх
bom
Дата 2.1.2005, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Цитата
оба кода работают одинаково.Незнаю что выбрать

"\" - работает быстрее, так как дает результат в виде целого числа (integer). Если нужно округлять, то тогда конечно выбирай " \" smile

Vach опередил smile

Это сообщение отредактировал(а) bom - 2.1.2005, 00:26
PM MAIL   Вверх
cardinal
Дата 2.1.2005, 00:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Старуха, сделай тест в 10000 прокрутов в цикле и увидишь, что работает быстрее


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Staruha
Дата 2.1.2005, 01:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Ну вот я еще на один шаг продвинулась в изучении VB
Цитата
/= (деление), \= (целочисленное деление)

- Теперь понятно ,как это работает. А то просто тупо код переписывала. Всем спасбо! smile


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0632 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.