HelpF.pro

Универсальная функция получения курса валюты

Код 1C v 8.х
 Функция ПересчетСуммыПоКурсу(ВалютнаяСумма, Валюта, Дата) Экспорт
Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(Дата, Новый Структура("Валюта", Валюта));
Сумма = ВалютнаяСумма * Запись.Курс;
Если Запись.Кратность <> 0 Тогда
Сумма = Сумма / Запись.Кратность;
КонецЕсли;
Возврат Сумма;
КонецФункции

//Пример обращения
ВалютДол=Справочники.Валюты.НайтиПоНаименованию("USD");
ВалютнаяСумма=1000;
Сумм=ПересчетСуммыПоКурсу(ВалютнаяСумма, ВалютДол, ДатаДокумента);

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/354.html