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

[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, спасибо.