v8: Округление

 

&НаКлиенте

Процедура ОкруглитьК1(Команда)

	

	ОстатокОтОкругления = 0;

	Если		Входящее % 1 < 0.5 Тогда

		ОстатокОтОкругления = 0.5;

	ИначеЕсли	Входящее % 1 >= 0.5 Тогда

		ОстатокОтОкругления = 1;

	КонецЕсли;

		

	Итоговое = Цел(Входящее) + ОстатокОтОкругления;

	

КонецПроцедуры



&НаКлиенте

Процедура ОкгрулитьК0(Команда)

	

	ОстатокОтОкругления = 0;

	Если		Входящее % 1 < 0.5 Тогда

		ОстатокОтОкругления = 0;

	ИначеЕсли	Входящее % 1 >= 0.5 Тогда

		ОстатокОтОкругления = 0.5;

	КонецЕсли;

		

	Итоговое = Цел(Входящее) + ОстатокОтОкругления;

	

КонецПроцедуры

   

 

Округлено=Округлить(0)



&НаКлиенте

Функция Округлить(Признак)

// 1 - округляем 0,1 до 0,5, а 0,6 до 1

// 0 - округляем 0,1 до 0, а 0,6 до 0,5

//.......нужный код.........

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