Функция выводит количество прописью (нужна, когда ЧислоПрописью работает, но не совсем).
Например, если надо 0.42 вывести – как “ноль целых сорок две сотых”.
Функция КоличествоПрописью(Количество) Экспорт
ЦелаяЧасть = Цел(Количество);
ДробнаяЧасть = Окр(Количество - ЦелаяЧасть, 3);
Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда
ПараметрыПрописи = ", , , , , , , , 0";
ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 1) Тогда
ПараметрыПрописи = "целая, целых, целых, ж, десятая, десятых, десятых, м, 1";
ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 2) Тогда
ПараметрыПрописи = "целая, целых, целых, ж, сотая, сотых, сотых, м, 2";
Иначе
ПараметрыПрописи = "целая, целых, целых, ж, тысячная, тысячных, тысячных, м, 3";
КонецЕсли;
Возврат ЧислоПрописью(Количество, "НП= Истина;НД=Истина;ДП=Истина", ПараметрыПрописи);
КонецФункции
