Не у кого наработок по правилам округления?
Типа:

до 5 р до 1 копейки
до 10р до 5 копеек
до 50р до 10 копеек
до 100р до 50 копеек
до 500р до рубля
свыше до 10р

повтори вопрос, плз

(0) функция пишется быстрее чем твой вопрос в (0) ))))

(1) >> Не у кого наработок по правилам округления?

(3) спасибо
(0) ну

(0) Кури Окр() со всеми параметрами

Создаем РС с полями: НижняяГраница, ВерхняяГраница, ЗначениеОкругления

заполняем его:

0 5 0.01
5 10 0.05
10 50 0.10
50 100 0.50
100 500 1.00
500 999999999999 10.00

а дальше легко как запросом, так и в коде

С тебя сто рублёв


Функция ОкрулитьДО(Число, Точность)
    Возврат Окр(Число / Точность) * Точность;
КонецФункции


Если Сумма < 5 Тогда
    Сумма = ОкруглитьДо(Сумма, 0.01);
ИначеЕсли Сумма < 10 Тогда
    Сумма = ОкруглитьДо(Сумма, 0.05);
ИначеЕсли Сумма < 50 Тогда
    Сумма = ОкруглитьДо(Сумма, 0.1);
ИначеЕсли Сумма < 100 Тогда
    Сумма = ОкруглитьДо(Сумма, 0.5);
ИначеЕсли Сумма < 500 Тогда
    Сумма = ОкруглитьДо(Сумма, 1);
Иначе
    Сумма = ОкруглитьДо(Сумма, 5);
КонецЕсли;

(7) в (6) универсальнее ))

(8) без моей формулы твои циферки будут висеть мёртвым грузом

(6) А на зачем и верхняя и нижняя граница. Тогда еще пересечение проверять надо.
Одной хватит.

Округляем 123.123 до 50 копеек.

Окр(123.123/0,5)*0,5 = 123

чет не то
Счас соображу.

(10) пересечение проверяется на уровне целостности регистратора, зато проще в запросах работать

(9) "твоя" формула

Функция ОкрулитьДО(Число, Точность)
    Возврат Окр(Число / Точность) * Точность;
КонецФункции

слишком известна, чтобы она была реально твоей ))

округлите 8,71 по правилу 0,05
До пяти копеек получается.

хм, ты намекаешь на веб-сервис на мисте? скорость округления будет не ахти

все праильно

(14) ты к чему это?

(13) Я, на всякий случай прошу прощения, но что такое "пересечение проверяется на уровне целостности регистратора"? Мне не понятно.

(18) в событиях при записи регистра

(19) Вот я и говорю в (10), что проверять придется пересечение. Естественно, не при округлении, а при записи в регистр.

нормальные наработки есть в округлении цены в злополучной УТ11

(20) но вы же крайне редко будете менять этот РС

(22) Кому как. Я бы сделал только одну границу. Но это чисто мое мнение. Не настаиваю.

(23) с одной границей лишнее соединение при чтении, чтений очевидно будет больше записей

(24) +1
В этом есть смыл.

(24) Возможно. Согласный.

Самое главное - РС позволяет рулит границами из Предприятия, а код в (7) - надо постоянно править по ситуации.

(0) Ифигасе ты программист...
"Пацаны ваще ребята!"(с)

(28) что не так?

(29) Это задача уровня: "Ни у кого нет наработок сортировки пузырьком?"

(30) давно ищу, никто не сознается ))

(31) я бого реализовывал. будешь?

Задача не такая простая как кажется. Допустим мы округляем заказы, а реализуем частями -  это уже сложней.

(32)чего реализовывал?

(34) сортировка пресвятого Бого

Перем ГСЧ;

Процедура КнопкаВыполнитьНажатие(Кнопка)
    НН=8;
    М=Новый Массив(НН);
    Для й=0 По НН-1 Цикл
        М[й]=ГСЧ.СлучайноеЧисло(0, 256);
    КонецЦикла;
    
    й=0;
    Старт=ТекущаяУниверсальнаяДатаВМиллисекундах();
    Пока НЕ Отсортирован(М) Цикл
        й=й+1;
        Размешать(М);
    КонецЦикла;
    Финиш=ТекущаяУниверсальнаяДатаВМиллисекундах();
    Сообщить(""+(Финиш-Старт)+" мсек., "+й+" итераций");
КонецПроцедуры

Функция Отсортирован(М)
    Для й=1 По М.Количество()-1 Цикл
        Если М[й]<М[й-1] Тогда
            Возврат Ложь;
        КонецЕсли;
    КонецЦикла;
    Возврат Истина;
КонецФункции

Процедура Размешать(М)
    Н=М.Количество();
    Для й=0 По Н-1 Цикл
        ф=М[й];
        ж=ГСЧ.СлучайноеЧисло(0, Н-1);
        М[й]=М[ж];
        М[ж]=ф;
    КонецЦикла;
КонецПроцедуры

ГСЧ=Новый ГенераторСлучайныхЧисел;

(35) это откуда?
ГенераторСлучайныхЧисел

(36) штатная восьмёрка..

(37) 8.2?
раньше не было

(38) да вроде ещё в 8.1 завелось

вроде когда оно мне понадобилось в кои веки, его не было еще....

+ в 11 году еще не было:
http://kb.mista.ru/article.php?id=25

обработка у меня в бардачке (для 8.1) с ГСЧ датирована 26.08.11

порадовал комментарий ;)

    Для й=0 По Н Цикл
        стр=ТЗ.Добавить();
        // 1 - мальчик, 0 - девочка; блин, жизненно ;)
        стр.РебёнокРаз=ГСЧ.СлучайноеЧисло(0, 1);
        стр.РебёнокДва=ГСЧ.СлучайноеЧисло(0, 1);
    КонецЦикла;

(43) 10 - ребенок
а что так напугало-то? ))

...в одном ночном клубе когда-то вместо табличек на туалетный дверях были болт и гайка