ЧислоПрописью. Нужна помощь!!!

[Maxim]

Доброго времени суток! Есть вопрос, как целую часть выводить числом?
ПарПредмета="руб.,руб.,руб.,м,коп.,коп.,коп.,ж,2";
ЧислоПрописью(1234.34, "Л = ru_RU", ПарПредмета)
При выводе:
"Одна тысяча двести тридцать четыре руб. 34 коп."
Нужно вывести т.о.:
"1234 руб. 34 коп."
Есть добровольцы??? Заранее спасибо!!!

[Maxim]

СуммаИзлишковРуб = 0;
   СуммаИзлишковКоп = 0;
   Если Найти(ИтоговыеСуммы.СуммаИзлишков,".")>0 Тогда
      СуммаИзлишковРуб = Лев(ИтоговыеСуммы.СуммаИзлишков,Найти(ИтоговыеСуммы.СуммаИзлишков,".")-1);
      СуммаИзлишковКоп = Сред(ИтоговыеСуммы.СуммаИзлишков,Найти(ИтоговыеСуммы.СуммаИзлишков,".")+1);
   Иначе
      СуммаИзлишковРуб = ИтоговыеСуммы.СуммаИзлишков;
      СуммаИзлишковКоп = Формат(0,"ЧН=00");
   КонецЕсли;
   ОбластьЗаголовокСтраницы4.Параметры.СуммаИзлишковРуб      = СуммаИзлишковРуб;
   ОбластьЗаголовокСтраницы4.Параметры.СуммаИзлишковКоп      = СуммаИзлишковКоп;

Так можно использовать?

[sergejK74]

Заранее спасибо!!!

Заранее пожалуйста.

Код Выделить Развернуть

Функция ПолуПропись(Сумма)
Рублей = Цел(Сумма);
Копеек = (Сумма-рублей)*100;
возврат ""+Рублей+" руб."+Копеек+" коп.";
КонецФункции // ПолуПропись

[Maxim]

Не хватает условия, но всё равно подойдёт. Ценю за Вашу помощь!

[Maxim]

Как-то так получилось:
Если Найти(ИтоговыеСуммы.СуммаИзлишков,".")>0 Тогда
      СуммаИзлишковРуб = Цел(ИтоговыеСуммы.СуммаИзлишков);
      СуммаИзлишковКоп = (ИтоговыеСуммы.СуммаИзлишков-СуммаИзлишковРуб)*100;
   Иначе
      СуммаИзлишковРуб = ИтоговыеСуммы.СуммаИзлишков;
      СуммаИзлишковКоп = Формат(0,"ЧН=00");
   КонецЕсли;

[sergejK74]

Не хватает условия, но всё равно подойдёт. Ценю за Вашу помощь!

Исправил

Код Выделить Развернуть

Функция ПолуПропись(Сумма)
Рублей = Цел(Сумма);
Копеек = Формат((Сумма-рублей)*100,"ЧН=00");
возврат ""+Рублей+" руб."+Копеек+" коп.";
КонецФункции // ПолуПропись
Результат

Код Выделить Развернуть

сумма = 1234.00;
сообщить(ПолуПропись(Сумма)); = 1 234 руб.00 коп.

сумма = 1234.34;
сообщить(ПолуПропись(Сумма)); = 1 234 руб.34 коп.

[Maxim]

Вот это другое дело! Салют Вам!

[Maxim]

Ой, а если так 1234.01 -> 1 234 руб.1 коп.

[sergejK74]

Ой, а если так 1234.01 -> 1 234 руб.1 коп.

Код Выделить Развернуть


Функция ПолуПропись(Сумма)
Рублей = Цел(Сумма);
Копеек = Формат((Сумма-рублей)*100,"ЧН=00; ЧЦ=2; ЧДЦ=0; ЧВН=");
возврат ""+Рублей+" руб."+Копеек+" коп.";
КонецФункции // ПолуПропись