Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 13:36

Округдение до 50

Автор sergeevds, 01 дек 2011, 10:22

0 Пользователей и 1 гость просматривают эту тему.

sergeevds

Я из Минска (это просто чтобы не было вопросов по следующему факту) и вчера появилось задание предвсмотреть округление розничных ценников, сумм (у нас количества продукции отпускается до 4-го знака полсе запятой) и сумм скидок до 50 рублей. Я то уже все сделал, но вот появился вопрос. Я просто написал функцию для округления до 50:

Функция ОкруглитьЧислоДо50(Число) Экспорт

   Число = Окр(Число,-1);
   ДляОкругления = Число(Прав(Строка(Число),2));
   Если ДляОкругления<75 И ДляОкругления>25 Тогда
      Добавить = 50 - ДляОкругления;
      ИтоговоеЧисло = Число + Добавить;
   ИначеЕсли ДляОкругления>75 Тогда
      Добавить = 100 - ДляОкругления;
      ИтоговоеЧисло = Число + Добавить;
   ИначеЕсли ДляОкругления<25 Тогда
      Добавить = 0 - ДляОкругления;
      ИтоговоеЧисло = Число + Добавить;
   КонецЕсли;
   
   Возврат ИтоговоеЧисло;
   
КонецФункции

Но никак не могу избавится от мысли, что это забивание гвоздей микроскопом.
Как можно округлить число до 50 другим способом, может при помощи встроенных методов?

has

Вот так попробуй?

Функция ОкруглитьЧислоДо50(Число) Экспорт
   
   ИтоговоеЧисло = Окр(Число / 50);
   
   Возврат  ИтоговоеЧисло * 50;
   
КонецФункции

chuevsf

Функция ОкруглитьЧислоДо50(Число) Экспорт
   
   ИтоговоеЧисло = Цел(Число / 50);
   
   Возврат  ИтоговоеЧисло * 50;
   
КонецФункции

sergeevds

Ну да, как я и говорил, забивание гвоздей микроскопом. Has, спасибо.

Теги:
Рейтинг@Mail.ru

Поиск