1С 8.x : Функция пересчитывает сумму из валюты ВалютаНач по курсу КурНач в валюту ВалютаКон по курсу КурКон

 

// Эта функция пересчитывает сумму из валюты ВалютаНач по курсу ПоКурсуНач 

// в валюту ВалютаКон по курсу ПоКурсуКон

//

// Параметры:      

//	Сумма          - сумма, которую следует пересчитать;

//	ВалютаНач      - ссылка на элемент справочника Валют;

//                   определяет валюты из которой надо пересчитвать;

//	ВалютаКон      - ссылка на элемент справочника Валют;

//                   определяет валюты в которую надо пересчитвать;

// 	ПоКурсуНач     - курс из которого надо пересчитать;

// 	ПоКурсуКон     - курс в который надо пересчитать;

// 	ПоКратностьНач - кратность из которого надо пересчитать (по умолчанию = 1);

// 	ПоКратностьКон - кратность в который надо пересчитать  (по умолчанию = 1);

//

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

//  Сумма, пересчитанная в другую валюту

//

Функция ПересчитатьИзВалютыВВалюту(Сумма, ВалютаНач, ВалютаКон, ПоКурсуНач, ПоКурсуКон, 

	                               ПоКратностьНач = 1, ПоКратностьКон = 1 ) Экспорт



	Если (ВалютаНач = ВалютаКон) Тогда



		// Считаем, что пересчет не нужен.

		Возврат Сумма;



	КонецЕсли;



	Если (ПоКурсуНач     = ПоКурсуКон) 

	   и (ПоКратностьНач = ПоКратностьКон) Тогда



		// ну, тут и считать нечего...

		Возврат Сумма;



	КонецЕсли;



	Если ПоКурсуНач     = 0 

	 или ПоКурсуКон     = 0 

	 или ПоКратностьНач = 0 

	 или ПоКратностьКон = 0 Тогда

		СообщитьОбОшибке(" при пересчете обнаружен нулевой курс.");

		Возврат 0;



	КонецЕсли;



	Возврат Окр((Сумма * ПоКурсуНач * ПоКратностьКон) / (ПоКурсуКон * ПоКратностьНач), 2);



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