1С 8.x : Универсальная функция получения курса валюты

 Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт

	Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта));

	Сумма  = ВалютнаяСумма * Запись.Курс;

	Если Запись.Кратность <> 0 Тогда

		Сумма = Сумма / Запись.Кратность;

	КонецЕсли;

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

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



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

ВалютДол=Справочники.Валюты.НайтиПоНаименованию("USD");

ВалютнаяСумма=1000;

Сумм=ПересчетСуммыПоКурсу(ВалютнаяСумма, ВалютДол, ДатаДокумента);