ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.х
 Функция КоличествоПрописью(Количество) Экспорт
      

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

Если ДробнаяЧасть = Окр(ДробнаяЧасть,0) Тогда
ПараметрыПрописи = ", , , , , , , , 0";

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

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

Иначе
ПараметрыПрописи = "целая, целых, целых, ж, тысячная, тысячных, тысячных, м, 3";
КонецЕсли;
Возврат ЧислоПрописью(Количество, ,ПараметрыПрописи);
КонецФункции


Информация взята с сайта http://helpf.pro


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.