Функция КоличествоПрописью(Количество) Экспорт



	ЦелаяЧасть   = Цел(Количество);

	ДробнаяЧасть = Окр(Количество - ЦелаяЧасть, 3);



	Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда

		ПараметрыПрописи = ", , , , , , , , 0";



	ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 1) Тогда

		ПараметрыПрописи = "целая, целых, целых, ж, десятая, десятых, десятых, м, 1";



	ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 2) Тогда

		ПараметрыПрописи = "целая, целых, целых, ж, сотая, сотых, сотых, м, 2";



	Иначе

		ПараметрыПрописи = "целая, целых, целых, ж, тысячная, тысячных, тысячных, м, 3";

	КонецЕсли;

	Возврат ЧислоПрописью(Количество, ,ПараметрыПрописи);

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

 ПараметрыПредметаИсчисления = "целая, целых, целых, ж, сотая, сотой, сотых, ж, 2"

ФорматнаяСтрока = "Л=ru_RU; ДП=Истина"; 

Сообщить(ЧислоПрописью(ВыводимоеЧисло, ФорматнаяСтрока, ПараметрыПредметаИсчисления));