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

Функция выводит количество прописью (нужна когда ЧислоПрописью работает, но не совсем). Например если надо 0.42 вывести — как «ноль целых сорок две сотых»

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

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

Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда
ПараметрыПрописи = «, , , , , , , , 0»;
ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 1) Тогда
ПараметрыПрописи = «целая, целых, целых, ж, десятая, десятых, десятых, м, 1»;
ИначеЕсли ДробнаяЧасть = Окр(ДробнаяЧасть, 2) Тогда
ПараметрыПрописи = «целая, целых, целых, ж, сотая, сотых, сотых, м, 2»;
Иначе
ПараметрыПрописи = «целая, целых, целых, ж, тысячная, тысячных, тысячных, м, 3»;
КонецЕсли;

Возврат ЧислоПрописью(Количество, «НП= Истина;НД=Истина;ДП=Истина», ПараметрыПрописи);

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

 

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.