Число прописью без дробной части
Как вывести число прописью по-русски, но без дробной части?
ФорматнаяСтрока = "Л=ru_RU"; ПараметрыПредметаИсчисления = " , , , , , , , , 0";
Сообщить(ЧислоПрописью(ВыводимоеЧисло, ФорматнаяСтрока, ПараметрыПредметаИсчисления));
Пример:
Если Объект.ДоговорСОтсрочкойЗначение = Истина тогда
ТекДок.Variables("КоличДнейОтсроч").Value = Объект.ДоговорДнейОтсрочкиЗначение;
ФормСтрока = "Л = ru_RU; ДП = Ложь"; //30 (тридцати) календарных дней
ПарПредмета="календарный день, календарного дня, календарных дней,м,,,,,0";
ТекДок.Variables("КоличДнейОтсрочкПрописью").Value = ЧислоПрописью(Объект.ДоговорДнейОтсрочкиЗначение,ФормСтрока,ПарПредмета);
КонецЕсли;
Источник: HelpF.pro
Как вывести число прописью по-русски, но без дробной части?
ФорматнаяСтрока = "Л=ru_RU"; ПараметрыПредметаИсчисления = " , , , , , , , , 0";
Сообщить(ЧислоПрописью(ВыводимоеЧисло, ФорматнаяСтрока, ПараметрыПредметаИсчисления));
Пример:
Если Объект.ДоговорСОтсрочкойЗначение = Истина тогда
ТекДок.Variables("КоличДнейОтсроч").Value = Объект.ДоговорДнейОтсрочкиЗначение;
ФормСтрока = "Л = ru_RU; ДП = Ложь"; //30 (тридцати) календарных дней
ПарПредмета="календарный день, календарного дня, календарных дней,м,,,,,0";
ТекДок.Variables("КоличДнейОтсрочкПрописью").Value = ЧислоПрописью(Объект.ДоговорДнейОтсрочкиЗначение,ФормСтрока,ПарПредмета);
КонецЕсли;
Источник: HelpF.pro
Комментариев нет:
Отправить комментарий