Всем здравствуйте, помогите написать код для округления суммы всегда в большую сторону кратную 5-ти, к примеру: 126 = 130, 41 = 45, 57 = 60, 12 = 15. 10 = 10, 15 = 15 Всем спасибо за ответы.

ну, показывай код, который у тебя получился...

как вариант - посмотреть в типовых/БСП, там стопудово есть что-то похожее

ОстатокОтДеленияНа5 = ИсходноеЧисло % 5;
ОкругленноеДо5ВБольшую = ?(ОстатокОтДеленияНа5 = 0, ИсходноеЧисло, ИсходноеЧисло+5-ОстатокОтДеленияНа5);

Для нуля знаков после запятой будет ЦЕЛ(Сумма/5+0,9)*5
Для двух знаков после запятой будет ЦЕЛ(Сумма/5+0,999)*5
Вариант для двух знаков подойдет и для нуля, но не наоборот

(4) Офф. Тоже ждёте трансляции? )
https://i.ibb.co/fDGkxYv/photo-2024-02-09-09-42-16.jpg
По теме. Такие округления как правило нужны для денег: цены или индексированные зарплаты, т.е. число положительное и не больше лимона, поэтому для эпсилона хватит одной миллиардной.

А = (Цел(А/5,000000000001)+1)*5

(5) Офф. Да не, завтра посмотрю в обычном режиме, то есть сегодня уже
Просто работаю, базу причесываю немного
Это у Запада "Колечко, сжималось колечко...", а нам-то что

По теме
Мой вариант математически верен, а твой как-то сомнителен
Кроме того, в курсе ли ты, например, что в запросе точность деления скулем максимум 6 знаков?

(4) (5) Эмм.
10 = 10 должно быть, и 5 = 5
Проверьте по своим формулам...

(7) Так 10 и 5 и будет

(8) Да, ошибся
Но мучают меня подозрения, при некоторых условиях могут быть проблемы с подобной чисто математической формулой

И не уверен что легко переделать на другое подобное округление
Например если надо кратно 25 в большую делать

-10 или -5 у вас что получится?

(9) Не мучайся, все верно
+0.999 — это +1, то есть по сути +5 после умножения, для округления в верхнюю сторону
И потом минус число, меньше самого маленького, то есть -0.001, если мы про два знака после запятой, чтобы учесть случаи типа 5, 10, 15 и пр.

(10) Вместо 5 напиши 25 и все

(11) -10 и -5

Для -11 будет -10, все четко

(14) ЦЕЛ(-5/5+0,9)*5 = ЦЕЛ(-1+0,9)*5 = ЦЕЛ(-0,1)*5 = 0*5 = 0
-5 -> 0 ???

(16) А, проверял в Экселе
А Целое в Экселе не равно Цел в 1С
Нужно посмотреть будет завтра, да

(0)
v7: Окр(Сумма/5+0.5, 0, 0)*5
v8: Окр(Сумма/5+0.5, 0, РежимОкругления.Окр15как10)*5

Функция ОкруглениеВВерх(Значение, Точность=1) Экспорт

    Если Точность<>1 Тогда
        Возврат ОкруглениеВВерх(Значение/Точность)*Точность;    
    КонецЕсли;      
    
    ЦелоеБольше = Цел(Значение)+1;
    Возврат ЦелоеБольше - Цел(ЦелоеБольше-Значение);

КонецФункции

Всем огромное спасибо за ответы! (19) (18) (17) (16)

(4) Согласен, для денежных чисел (копейки) сработает Ваша красивая формула:
А = ЦЕЛ(А/5+0.999)*5

(21) а мне принципиально не нравятся вот эти вот 0.999
потому что надо закладываться на точность и изменять эту константу при изменении точности. Не универсально

(22) Зачем создавать универсальный автомобиль-самолёт-амфибию, если нужно только ездить?
Округление до 5 рублей стандартное требование в денежных расчётах. Никто не ставит оклад в 49567.32
Поэтому если округление именно денежных сумм, то формула PR получает 1-ый приз )

(23) Я понимаю ваше мнение, оно имеет право на жизнь, но я останусь при своем. Удачи!

(21)

(21)

(25) Дубль три: оклады и цены отрицательными не бывают.

(27) "написать код для округления суммы всегда в большую сторону кратную 5-ти"

где в (0) про оклады и цены?

(27) видите как резко ограничивается область применения. Это к вопросу, а так ли плоха универсальность

(28) Так говорит Телепат 2.0
Спорим? Автор придёт и решит )

5,5555 - округли в большую сторону до 5 ))

(29) Если айфон работает в диапазоне земных температур, то не стоит изобретать универсальный гаджет для работы на Венере или Юпитере.

Хватит уже, нет лучшего варианта чем через "%"

Только остаток от деления самый быстрый (меньшие вычислительные затраты) и правильный способ

(31) Вы хлеб покупаете? Видели ли когда-нибудь цену в сотых долях копеек?

(34) это цена в USD

(32) да, во всем нужна мера, согласен. Но писать отдельно округление только для цен (положительных и не более точности 2) так себе идея

(35)+ А скидка будет отрицательной

(36) Это же не отдельная функция, а просто дополнительное действие для ранее полученного результата.

(35) Не придумывайте. До 5 долларов ещё никто никогда не округлял.

Окр(Ч/5+0.5, 0, РежимОкругления.Окр15как10)*5

(38) что это меняет?
(39) какой вы волатильный, право

(39) Не прикидывайся

Цена $5,5555
Округлять нужно кратно 0,0005

(42)+ в случае алгоритма (3) это легко и просто

(40)

(43) Дубль четыре: мы не пишем универсальную функцию округления вверх до заданного делителя. Таких можно написать сотни. Нам надо быстро округлить денежную сумму до 5 рублей. Давайте отсекать лишнее )

(45) ох уж эти быстрые разработчики, вам нужно с фиксиным профсоюз организовать

(46) Угу... зато медленные разработчики готовы весь свой код заполонить универсальными нетиповыми функциями.

(44) Окр(Ч/5+0.5, 0, РежимОкругления["Окр15как"+?(Ч<0, 20, 10)])*5

С остатками от деления отрицательных чисел в 1С тоже засада

Функция Округлить(Исходное, Кратность, Увеличение = Истина)
	
	ОстатокОтДеления = Исходное % Кратность;
	
	Если ОстатокОтДеления = 0 Тогда
		Округленное = Исходное;
	ИначеЕсли ОстатокОтДеления < 0 И Увеличение Тогда
		Округленное = Исходное - ОстатокОтДеления;
	ИначеЕсли ОстатокОтДеления < 0 И НЕ Увеличение Тогда
		Округленное = Исходное + Кратность - ОстатокОтДеления;
	ИначеЕсли ОстатокОтДеления > 0 И Увеличение Тогда
		Округленное = Исходное + Кратность - ОстатокОтДеления;
	ИначеЕсли ОстатокОтДеления > 0 И НЕ Увеличение Тогда
		Округленное = Исходное - ОстатокОтДеления;
	КонецЕсли;
	
	Возврат Округленное;
	
КонецФункции

(49)+ Специально написал развернуто, не стал сокращать читабельность кода

(49) хмм, Увеличение/Уменьшение можно на знак Кратность повесить

(49) Способов окргуления чуть больше правда

Раззадорили всё-таки меня изобретатели велосипедов. Ну не может такого быть, чтобы фирма 1С ограничилась только типовыми Цел и Окр )
Глянул в Зуп и БП, но можете проверить и в других конфигурациях.

Есть таки типовая
Функция Округлить(Число, Точность = 0, Правило = Неопределено) Экспорт

А для Правил есть отдельное перечисление ПравилаОкругленияПриРасчетеЗарплаты

Не обращайте внимание на наименование, это просто для отвода глаз, что якобы только для зарплаты )

Более того, есть ещё и справочник:
СпособыОкругленияПриРасчетеЗарплаты

В нём уже куча всяких элементов округлений до копеек, рубля, червонца, стольника...
Никто не мешает завести и настроить новый элемент "до 5 рублей"

(52) Это уже кому надо пусть реализуют
Главное что мой вариант работает и для отрицательных
И для 5,555X % 0,0005

(21) Важнее всего то, что она применяема в запросе

(22) Используй всегда 0.999999

(25) Для отрицательных да, нужно доработать

(55) остаток от деления в запросе можно, как и выбор когда тогда

(58) Да можно, конечно
Можно и временную таблицу из ТЗ подтянуть
Все можно
Но ты же понимаешь, что есть такой критерий, как простота
Тем более, что может так получиться, что округлять понадобится тоже не поле, а нехреновое такое выражение

На языке запросов

&НаКлиенте
Процедура Проверить(Команда)
    
    СообщитьВариант(-20, -20);
    СообщитьВариант(-19, -15);
    СообщитьВариант(-11, -10);
    СообщитьВариант(-4, 0);
    СообщитьВариант(-1, 0);
    СообщитьВариант(-0, -0);
    СообщитьВариант(1, 5);
    СообщитьВариант(4, 5);
    СообщитьВариант(5, 5);
    СообщитьВариант(6, 10);
    СообщитьВариант(9, 10);
    СообщитьВариант(10, 10);
    
КонецПроцедуры

&НаСервере
Процедура СообщитьВариант(ОкругляемоеЧисло, ПравильноеЧисло)
    
    ТекстЗапроса =
    "ВЫБРАТЬ
    |    ЦЕЛ(&ОкругляемоеЧисло / 5 + ВЫБОР
    |            КОГДА &ОкругляемоеЧисло < 0
    |                ТОГДА 0
    |            ИНАЧЕ 0.999999
    |        КОНЕЦ) * 5 КАК ОкругленноеЧисло";
    
    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр("ОкругляемоеЧисло", ОкругляемоеЧисло);
    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();
    Выборка.Следующий();
    ОкругленноеЧисло = Выборка.ОкругленноеЧисло;
    
    Если ОкругленноеЧисло = ПравильноеЧисло Тогда
        Сообщить(СтрШаблон("%1 верно", ОкругляемоеЧисло));
    Иначе
        Сообщить(СтрШаблон("%1 НЕверно", ОкругляемоеЧисло));
    КонецЕсли;
    
КонецПроцедуры


(59) нехреновое  такое выражение как раз проще через промежуточную ВТ

чем вас (18) не устраивает?
подходит под условия в (0)
работает с отрицательными и положительными, любой точности

(61) Не всегда
В (60) вариант, когда округляемое выражение упоминается лишь дважды и то, только из-за проверки на отрицательные числа

(62) -20 проверь

(56) спасибо конечно, но нет

(64) точно, проблема
тогда (48)

так -12 куда округляем - к -10 или к -15 ...?

(66) ты хотел сказать (49) ? :)

Даже для дробных работает правильно, не только отрицательных

(67) -12 к -10, написано же к большему
про модуль ничего нет

(45) ненене.. так не пойдет, я тут задачку делал, так там порядок округления - "кратно 100"...