Цб рф официальный сайт курсы валют на заданную дату: Курсы ЦБ РФ на выбранную дату, архив курсов валют ЦБ РФ, Центробанк России на заданную дату

Курс ЦБ РФ на 18.12.2018. официальный курс валют цб на заданную дату 18-12-2018

Курс ЦБ РФ на 18.12.2018. официальный курс валют цб на заданную дату 18-12-2018

• на сегодня
• на завтра
• архив
• конвертер

все валюты

vba api очистка веб-сайта за заданный период валютных курсов

Моя функция ExchangeRatesCbr возвращает четырехмерный массив перечисленных валют и их текущий обменный курс:

 ' Получить текущие обменные курсы от Центрального банка Российской
' Федерация, использующая российский рубль в качестве базовой валюты. 
' Ставки возвращаются в виде массива и кэшируются до следующего обновления.
Курсы обновляются один раз в день примерно в 13:00 UTC.
'
' Источник:
' https://cbr.ru/eng/currency_base/daily/
'
' Примечание:
«Центральный банк Российской Федерации установил курсы валют
иностранной валюты по отношению к рублю, не принимая на себя никакой ответственности перед
' купить или продать иностранную валюту по курсу.
'
' Пример:
' Dim Rates как вариант
' Курсы = ExchangeRatesCbr()
' Ставки(9, 0) -> 2018-10-06 ' Дата публикации.
' Rates(9, 1) -> "DKK" ' Код валюты.
' Rates(9, 2) -> 10.2697 ' Обменный курс.
' Rates(9, 3) -> "Danish Krone" ' Название валюты на английском языке.
'
' 07.10.2018. Густав Брок, Cactus Data ApS, CPH.
'
Публичная функция ExchangeRatesCbr( _
    Необязательный ByVal LanguageCode как строка) _
    Как вариант
    «Операционные константы.
    '
    ' Конечные точки API.
    Const RuServiceUrl As String = "https://cbr.ru/currency_base/daily/"
    Const EnServiceUrl As String = "https://cbr. ru/eng/currency_base/daily/"
    
    «Функциональные константы.
    '
    'Кодировка страницы.
    Набор символов Const As String = "UTF-8"
    'Асинхронная настройка.
    Const Async As Variant = False
    ' Имя класса таблицы данных.
    Const DataClassName As String = "данные"
    ' Элементы поля html-таблицы.
    Константа CodeField как целое число = 1
    Const NameField As Integer = 3
    Const UnitField As Integer = 2
    Const RateField As Integer = 4
    ' Локатор/заголовок даты публикации: "DT":".
    Const DateHeader As String = """DT"":"""
    ' Длина отформатированной даты: 2000-01-01.
    Константа DateLength как целое число = 10
    
    ' Час обновления (UTC).
    Const UpdateHour As Date = #13:00:00#
    ' Интервал обновления: 24 часа.
    Константа UpdatePause как целое число = 24
    'Код английского языка.
    Const EnglishCode As String = "en"
    'Код русского языка.
    Const RussianCode As String = "ru"
    
#Если раннее связывание, то
    «Майкрософт XML, версия 6. 0.
    Dim XmlHttp как MSXML2.ServerXMLHTTP60
    ' Библиотека объектов данных Microsoft ActiveX 6.1.
    Тусклый поток как ADODB.Stream
    ' Библиотека объектов Microsoft HTML.
    Тусклый документ как MSHTML.HTMLDocument
    Dim Scripts As MSHTML.IHTMLElementCollection
    Dim Script As MSHTML.HTMLHtmlElement
    Dim Tables As MSHTML.IHTMLElementCollection
    Dim Table As MSHTML.HTMLHtmlElement
    Dim Rows As MSHTML.IHTMLElementCollection
    Затемнить строку как MSHTML.HTMLHtmlElement
    Dim Fields As MSHTML.IHTMLElementCollection
    Установите XmlHttp = новый MSXML2.ServerXMLHTTP60
    Установить поток = новый ADODB.Stream
    Установить документ = новый MSHTML.HTMLDocument
#Еще
    Dim XmlHttp как объект
    Тусклый поток как объект
    Затемнить документ как объект
    Dim скрипты как объект
    Dim Script как объект
    Dim Tables как объект
    Dim Table As Object
    Затемнить строки как объект
    Затемнить строку как объект
    Затемнение полей как объекта
    
    Установите XmlHttp = CreateObject("MSXML2. ServerXMLHTTP")
    Установить поток = CreateObject("ADODB.Stream")
    Установить Документ = СоздатьОбъект("htmlфайл")
#Конец, если
    Статические ставки () как вариант
    Статический LastCall как дата
    Статический LastCode как строка
    
    Dim ServiceUrl как строка
    Dim RateCount как целое число
    Dim публикуется как строка
    Dim ValueDate как дата
    Dim ThisCall As Date
    Затемнить текст как строку
    Dim Index как целое число
    Тусклый блок как двойной
    Dim ScaledRate As Double
    Dim TrueRate как двойной
    
    Если StrComp(LanguageCode, RussianCode, vbTextCompare) = 0 Тогда
        LanguageCode = РусскийКод
        Сервисурл = РуСервисурл
    Еще
        LanguageCode = EnglishCode
        Сервисурл = ЭнСервисурл
    Конец, если
    
    Если LastCode = LanguageCode And DateDiff("h", LastCall, UtcNow) < UpdatePause Тогда
        ' Возврат кешированных ставок.
    Еще
        ' Получить обновленные ставки.
    
        ' Определить массив результатов по умолчанию. 
        ' Redim для четырех измерений: дата, код, скорость, имя.
        ReDim ставки (0, 0 до 3)
        Оценки(0, RateDetail.Date) = NoValueDate
        Тарифы(0, RateDetail.Code) = NeutralCode
        Оценки(0, RateDetail.Rate) = NeutralRate
        Rates(0, RateDetail.Name) = NeutralName
        
        ' Получить данные.
        XmlHttp.Open "GET", ServiceUrl, асинхронный
        XmlHttp. Отправить
        Если XmlHttp.Status = HttpStatus.OK Тогда
            ' Получить и преобразовать страницу.
            ' Невозможно использовать набор символов по умолчанию. Видеть:
            https://stackoverflow.com/a/23812869/3527297
            
            ' Записать необработанные байты в поток.
            Поток.Открыть
            Stream.Type = адтипебинари
            Stream.Write XmlHttp.responseBody
            ' Считать текстовые символы из потока, применяя набор символов.
            Поток.Позиция = 0
            Поток.Тип = adTypeText
            Stream.Charset = Набор символов
            ' Скопируйте страницу в объект документа. 
            Document.body.innerHTML = Stream.ReadText
        
            ' Найдите в сценариях дату публикации.
            Установить сценарии = Document.getElementsByTagName ("сценарий")
            ДатаДаты = Дата
            Для каждого скрипта в скриптах
                Текст = Скрипт.innerHTML
                Если InStr(Text, "uniDbQuery_Data =") > 0 Тогда
                    Опубликовано = Оставлено (Разделить (Текст, Заголовок даты) (1), Длина даты)
                    Если Дата(Опубликовано), Тогда
                        ValueDate = CDate(опубликовано)
                    Конец, если
                    Выход для
                Конец, если
            Следующий
        
            ' Выполните поиск в таблицах, чтобы найти таблицу данных.
            ' Не работает с поздним связыванием.
            ' Установить таблицы = Document.getElementsByClassName ("данные")
            Установить таблицы = Document.getElementsByTagName ("таблица")
            Для каждой таблицы в таблицах
                Если ИмяТабл. класса = ИмяКлассаДанных Тогда
                    Выход для
                Конец, если
            Следующий
            
            Если не таблица ничего, то
                «Стол найден.
                Установить строки = Table.getElementsByTagName ("tr")
                ' Уменьшите количество на единицу, чтобы пропустить строку заголовка.
                RateCount = Rows.Length - 1
                ' Redim для четырех измерений: дата, код, скорость, имя.
                ReDim Rates (от 0 до RateCount - 1, от 0 до 3)
                
                ' Заполнить массив ставок.
                Для индекса = LBound (ставки, 1) в UBound (ставки, 1)
                    ' Сместите индекс на единицу, чтобы пропустить строку заголовка.
                    Установить строку = строки.Элемент (индекс + 1)
                    ' Получить поля этой ставки.
                    Установить поля = Row.getElementsByTagName ("td")
                    
                    ' Возвращенные скорости масштабируются, чтобы содержать только четыре десятичных знака. 
                    ' Вычислите истинную (немасштабированную) скорость.
                    ScaledRate = Val(Replace(Fields.Item(RateField).innerText, ",", "."))
                    Unit = Val(Fields.Item(UnitField).innerText)
                    TrueRate = ScaledRate / Unit
                    
                    Тарифы(индекс, RateDetail.Date) = ValueDate
                    Тарифы(индекс, RateDetail.Code) = Fields.Item(CodeField).innerText
                    Тарифы(Индекс, RateDetail.Rate) = TrueRate
                    Тарифы(индекс, RateDetail.Name) = Fields.Item(NameField).innerHTML
                Следующий
            Конец, если
            
            ThisCall = ValueDate + UpdateHour
            ' Запишите запрошенный язык и время публикации полученных ставок.
            LastCode = LanguageCode
            Последний Звонок = Этот Звонок
            
        Конец, если
    Конец, если
    
    ExchangeRatesCbr = Курсы
Конечная функция
 

Здесь вы можете выбрать интересующую вас валюту или использовать вспомогательную функцию CurrencyConvertCbr для прямого выбора валюты и коэффициента пересчета:

 ' Возвращает текущий коэффициент пересчета из рублей в другую валюту на основе
официальные курсы валют, публикуемые ЦБ РФ. 
«Федерация.
'
' При необходимости коэффициент пересчета может быть рассчитан из любого другого
опубликованы курсы валют. Обменные курсы из или в другие валюты, чем
' Рубли рассчитываются из руб. треугольным расчетом.
'
' Если передан неверный или неопубликованный код валюты, коэффициент пересчета
' возвращается ноль.
'
' Примеры, типичные:
' CurrencyConvertCbr("DKK") -> 0,0973738278625471
' CurrencyConvertCbr("DKK", "EUR") -> 7.46477501777072
' CurrencyConvertCbr("AUD") -> 0.021253081696846
' CurrencyConvertCbr("AUD", "DKK") -> 0.2182627731021
' CurrencyConvertCbr("DKK", "AUD") -> 4.58163334858857
' CurrencyConvertCbr("EUR", "DKK") -> 0.133962510272498
' CurrencyConvertCbr("", "DKK") -> 10.2697
' CurrencyConvertCbr("EUR") -> 0.013044442415309
' Примеры, нейтральный код.
' CurrencyConvertCbr("AUD", "XXX") -> 1
' CurrencyConvertCbr("XXX", "AUD") -> 1
' ВалютаКонвертЦбр("ХХХ") -> 1
' Примеры, неверный код.
' CurrencyConvertCbr("XYZ") -> 0
' CurrencyConvertCbr("DKK", "XYZ") -> 0
'
' 07.10. 2018. Густав Брок, Cactus Data ApS, CPH.
'
Открытая функция CurrencyConvertCbr( _
    ByVal IsoTo As String, _
    Необязательный ByVal IsoFrom As String = RubelCode) _
    Как двойной
    
    Dim Rates () как вариант
    
    Dim RateTo As Double
    Dim Rate From As Double
    Dim Factor как двойной
    Dim Index как целое число
    
    Если ИзоОт = "" Тогда
        ИзоОт = Рублевый Код
    Конец, если
    Если ИзоТо = "" Тогда
        IsoTo = Рублевый Код
    Конец, если
    
    Если IsoTo = NeutralCode или IsoFrom = NeutralCode, тогда
        Фактор = нейтральная ставка
    ИначеЕсли ИзоТо = ИзоОт Тогда
        Фактор = нейтральная ставка
    Еще
        Курсы () = Курсы ОбменаCbr
    
        Если IsoTo = Код Рубеля Тогда
            RateTo = нейтральная ставка
        Еще
            Для индекса = LBound (ставки) в UBound (ставки)
                Если Тарифы(Индекс, RateDetail.Code) = IsoTo Тогда
                    RateTo = Rates(Index, RateDetail.Rate)
                    Выход для
                Конец, если
            Следующий
        Конец, если
        
        Если RateTo > NoRate, то
            Если IsoFrom = Рублевый Код Тогда
                СтавкаОт = Нейтральнаяставка
            Еще
                Для индекса = LBound (ставки) в UBound (ставки)
                    Если Тарифы(Индекс, RateDetail. Code) = IsoFrom Тогда
                        RateFrom = Rates(Index, RateDetail.Rate)
                        Выход для
                    Конец, если
                Следующий
            Конец, если
            Коэффициент = Ставка от / Ставка до
        Конец, если
        
    Конец, если
    
    CurrencyConvertCbr = Фактор
Конечная функция
 

Чтобы получить курсы на историческую дату, примените последний параметр, например, для 2020-11-02, как показано здесь:

 https://cbr.ru/eng/currency_base/daily/?UniDbQuery.Posted= True&UniDbQuery.To=02%2F11%2F2020
 

Моя функция этого не сделает, но вам должно быть легко настроить.

Полный исходный код на GitHub: VBA.CurrencyExchange

Раскрытие информации: Связанная страница содержит обширный код, написанный только мной.

Азиатские акции снижаются, так как сильные данные подрывают надежды на голубиную позицию ФРС

БАНГКОК (AP) — Акции в Азии в основном снизились во вторник после того, как Уолл-стрит откатилась назад, поскольку неожиданно сильные экономические отчеты подчеркнули сложность борьбы Федеральной резервной системы с инфляцией.

Токио вырос, Шанхай остался без изменений, а другие региональные рынки снизились. Американские фьючерсы выросли, и цены на нефть также выросли.

Вдобавок к опасениям по поводу потенциальной рецессии, Fitch Ratings во вторник пересмотрело свои прогнозы роста мировой экономики в сторону понижения, чтобы отразить повышение процентных ставок ФРС и других центральных банков.

В отчете Global Economic Outlook глобальный рост оценивается в 1,4% в 2023 году, что было пересмотрено в сторону понижения с 1,7% в сентябрьском прогнозе. Он оценил рост США в 2023 году на уровне 0,2% по сравнению с 0,5%, поскольку темпы ужесточения денежно-кредитной политики увеличиваются.

Прогноз роста Китая был снижен до 4,1% в годовом исчислении с 4,5%.

Рынки воодушевлены ожиданиями, что Китай продолжит ослаблять свои строгие ограничения на пандемию, снижая давление на торговлю, производство и потребительские расходы.

Но инвесторы также присматриваются к ФРС, надеясь, что она может замедлить темпы повышения процентных ставок, направленного на сдерживание упрямо высокой инфляции.

Сектор услуг, который составляет большую часть экономики США, продемонстрировал удивительный рост в ноябре, сообщил в понедельник Институт управления поставками. Бизнес-заказы на фабриках в США и заказы на товары длительного пользования в октябре также выросли больше, чем ожидалось.

Эта новость положительна для экономики в целом, но усложняет борьбу ФРС с инфляцией, поскольку, вероятно, означает, что центральному банку придется продолжать повышать процентные ставки, чтобы снизить ценовое давление.

«Инфляция, скорее всего, окажется более устойчивой, а сфера услуг в экономике не ослабеет. Риски того, что ФРС, возможно, придется делать больше, остаются повышенными», — заявил Эдвард Мойя из Oanda.

Федеральная резервная система соберется на следующей неделе и, как ожидается, поднимет процентные ставки на полпроцента, что ознаменует своего рода смягчение от устойчивого потока повышения ставок на три четверти процентного пункта. С марта он повышал базовую ставку шесть раз, доведя ее до диапазона от 3,75% до 4%, что является самым высоким показателем за 15 лет. Уолл-стрит ожидает, что эталонная ставка достигнет пикового диапазона от 5% до 5,25% к середине 2023 года9.0005

Цель состоит в том, чтобы замедлить рост, не нажимая на тормоза и не вызывая рецессии, которая прокатится по всей мировой экономике, замедляя торговлю и потребительские расходы .

Продолжающееся вторжение России в Украину продолжает волновать и без того нестабильный мировой энергетический рынок. Цены на сырую нефть в США подскочили, прежде чем упали на 3,8% после того, как группа мировых лидеров согласилась бойкотировать большую часть российской нефти. Они также взяли на себя обязательство установить потолок цен на российский экспорт в размере 60 долларов за баррель.

На азиатских торгах гонконгский Hang Seng упал на 0,7% до 19 367,84, а Kospi в Южной Корее упал на 1,1% до 2393,16. Индекс Shanghai Composite не изменился и составил 3212,53 пункта.

Токийский индекс Nikkei 225 закрылся ростом на 0,2% до 27 885,87. Акции также упали в Бангкоке и на Тайване.

S&P 500 упал на 1,8% в понедельник до 3998,84. Промышленный индекс Dow Jones потерял 1,4% до 33 947,10, а высокотехнологичный Nasdaq потерял 1,9%, закрывшись на отметке 11 239,94. Акции малых компаний упали еще больше, в результате чего индекс Russell 2000 снизился на 2,8% до 1840,22.

Акции нефтегазовых компаний упали на фоне резкого снижения цен на энергоносители, включая падение цен на природный газ на 11,2%. Exxon Mobil упала на 2,7%.

В целом, примерно 95% акций эталонного индекса S&P 500 были в минусе, а технологические компании, банки и розничные торговцы были в числе крупнейших на рынке. Акции производителя чипов Nvidia упали на 1,6%, Bank of America — на 4,5%, Amazon — на 3,3%.

Доходность облигаций в основном выросла. Доходность 10-летних казначейских облигаций, влияющая на ставки по ипотечным кредитам, выросла до 3,59.% от 3,49% поздно вечером в пятницу.

В четверг Уолл-стрит будет получать еженедельные данные о заявках на пособие по безработице.