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

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



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

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



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

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



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

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



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

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



	Иначе

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

	КонецЕсли;

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

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