Имя: Пароль:
1C
1С v8
Перевод числа в строковое написание
0 Aleksey1989
 
20.04.12
14:43
Добрый день. Подскажите, пожалуйста, в 1С есть функция для перевода числа в текстовое написание (53 - пятьдесят три)?
1 Molinor
 
20.04.12
14:45
Функция СформироватьСуммуПрописью(Сумма, Валюта) Экспорт

   Если Валюта.ПараметрыПрописиНаРусском = "" Тогда
       Возврат ФорматСумм(Сумма);
   Иначе
       Возврат ЧислоПрописью(Сумма, "L=ru_RU", Валюта.ПараметрыПрописиНаРусском);
   КонецЕсли;

КонецФункции // СформироватьСуммуПрописью()
2 Aleksey1989
 
20.04.12
14:46
(1) Спасибо!
3 Molinor
 
20.04.12
14:46
Функция ФорматСумм(Сумма, Валюта = Неопределено, ЧН = "", ЧРГ = "") Экспорт

   ФорматнаяСтрока = "ЧЦ=15;ЧДЦ=2" +
                   ?(НЕ ЗначениеЗаполнено(ЧН), "", ";" + "ЧН=" + ЧН) +
                   ?(НЕ ЗначениеЗаполнено(ЧРГ),"", ";" + "ЧРГ=" + ЧРГ);
   РезультирующаяСтрока = СокрЛ(Формат(Сумма, ФорматнаяСтрока));
   
   Если ЗначениеЗаполнено(Валюта) Тогда
       РезультирующаяСтрока = РезультирующаяСтрока + " " + СокрП(Валюта);
   КонецЕсли;

   Возврат РезультирующаяСтрока;

КонецФункции // ФорматСумм()
Ошибка? Это не ошибка, это системная функция.