1С 7.x : Функция преобразует переданную сумму в строку вида 123 руб. 45 коп

 //ПарСумма - сумма, число



//коп - Выводится всегда

Функция глРубКоп(ПарСумма) Экспорт

	Если Число(ПарСумма)=0 Тогда

		Возврат "руб.      коп."

	КонецЕсли;

	Возврат ""+Цел(ПарСумма)+" руб. "+Формат((ПарСумма-Цел(ПарСумма))* 100,"ЧЦ=2; ЧВН=")+" коп."

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



//Если копеек нет, то они и не выводятся

Функция РубКоп(ПарСумма) Экспорт

        Если Число(ПарСумма)=0 Тогда

               Возврат " "

        КонецЕсли;

        коп = (ПарСумма-Цел(ПарСумма))* 100;   

        Возврат ""+Цел(ПарСумма)+" руб. "+?(коп>0, Формат(коп,"ЧЦ=2; ЧВН=")+" коп.","")

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





//Пример обращения

Процедура КнопкаВыполнитьНажатие(Кнопка)

	Сообщить(глРубКоп(ИтогоСумм)); //К примеру ИтогоСумм=875.05; - Результат 875 руб. 05 коп.

КонецПроцедуры

   

 

// ПарСумма - сумма, число

//

//	Возвращаемое значение:

//		строка в виде: "ррр руб. кк коп."

//

//	Описание:

//		Преобразует переданную сумму в строку вида "ррр руб. кк коп."

//

Функция глРубКоп(ПарСумма) Экспорт

	Если Число(ПарСумма)=0 Тогда

		Возврат "руб.      коп."

	КонецЕсли;

	Возврат ""+Цел(ПарСумма)+" руб. "+Формат((ПарСумма-Цел(ПарСумма))* 100,"Ч(0)2")+" коп."

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



//Пример обращения

	ИтогоСумм=875.05;

	Сообщить(глРубКоп(ИтогоСумм)); // 875 руб. 05 коп.