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

Если Вам часто приходится в своих таблицах Excel использовать текущий курс валют — эта статья для вас. Приведенная ниже функция пользователя позволяет получить курс валюты на заданную дату.

'---------------------------------------------------------------------------------------
' Procedure : КурсЦБР
' DateTime  : 15.09.2013 23:11
' Author    : The_Prist(Щербаков Дмитрий)
'             http://www.excel-vba.ru
' Purpose   : http://www.excel-vba.ru/chto-umeet-excel/poluchit-kurs-valyut-ot-sberbanka/
'---------------------------------------------------------------------------------------
Function КурсЦБР(Optional ТипВалюты As String, Optional ByVal Дата As String) As Double
    'раскомментировать, если необходимо обновление при любом изменении на листе
    'Application.Volatile True
    Dim sRequest As String, sReqRes As String, sRes As String
    Dim sDay As String, sMonth As String, sYear As String
    Dim lPos As Long, lLastPos As Long, lDel As Long, oHttp
 
    If IsMissing(ТипВалюты) Or ТипВалюты = "" Then ТипВалюты = "USD"
    If IsMissing(Дата) Or Дата = "" Then Дата = Now
    If Not IsDate(Дата) Then Дата = CDate(Дата)
 
    sDay = Format(Дата, "dd"): sMonth = Format(Дата, "mm"): sYear = Format(Дата, "yyyy")
    sRequest = "http://cbr. ru/currency_base/daily.aspx?C_month= " & _
             sMonth & "&C_year=" & sYear & "&date_req=" & sDay & "%2F" & _
             sMonth & "%2F" & sYear
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    If oHttp Is Nothing Then Exit Function
    oHttp.Open "GET", sRequest, False
    oHttp.Send
    sReqRes = Replace(oHttp.responseText, vbNewLine, "")
    sReqRes = Replace(sReqRes, Chr(10), "")
    sReqRes = Replace(sReqRes, " ", "")
    lPos = InStr(1, sReqRes, UCase(ТипВалюты) & "</td>", 1)
    lPos = InStr(lPos, sReqRes, "<td>", 1) + 4
    lLastPos = InStr(lPos, sReqRes, "</td>", 1)
    lDel = Mid(sReqRes, lPos, lLastPos - lPos)
    lPos = InStr(lLastPos + 10, sReqRes, "<td>", 1) + 4
    lLastPos = InStr(lPos, sReqRes, "</td>", 1) - 4
    sRes = Mid(sReqRes, lPos, 7)
    sRes = sRes / lDel
    Set oHttp = Nothing
    sRes = Replace(sRes, ",", Mid(1 / 2, 2, 1))
    КурсЦБР = sRes
End Function

Синтаксис функции:
=КурсЦБР(A1;B1)
=КурсЦБР(«EUR»;»12. 09.2013″)
=КурсЦБР(«EUR»)
=КурсЦБР()
ТипВалюты(A1) — Необязательный аргумент. Ссылка на ячейку или текстовое обозначение валюты. Если не указан — возвращает курс доллара. Некоторые из доступных валют:

• AUD — Автралийский доллар(Australian Dollar)
• BYR — Беларусский рубль(Belarusian Rouble)
• DKK — Датская крона(Danish Krones)
• USD — Американский доллар(United States Dollar)
• EUR — ЕВРО(European Monetary Unit)
• ISK — Исландская крона(Icelandic Krona)
• KZT — Казхстанский тенге(Kazakhstan Tenge)
• CAD — Канадский доллар(Canadian Dollar)
• CNY — Китайский Ренминби Юаня(Chinese Yuan Renminbi)
• TRY — Турецкая Новая Лира(Turkish New Lira)
• NOK — Норвежская Крона(Norwegian Krone)
• XDR — СДР — Специальные права заимствования(Special Drawing Right)
• SGD — Сингапурский Доллар(Singapore Dollar)
• UAH — Украинская гривна(Ukrainian Hryvnia)
• GBP — Фунт Стерлингов Объединенного Королевства(United Kingdom Pound Sterling)
• SEK — Шведская Крона(Swedish Krona)
• CHF — Швейцарский Франк(Swiss Franc)
• JPY — Японская Иена(Japanese Yen)

Дата(B1) — необязательный аргумент. Ссылка на ячейку с датой либо непосредственно дата. Если не указан, то используется текущая дата.

И реализация чуть проще от пользователя krosav4ig — через встроенный парсер XML:

'---------------------------------------------------------------------------------------
' Procedure : ЦБР
' DateTime  : 09.10.2014
' Author    : krosav4ig
' Purpose   : http://www.excel-vba.ru/chto-umeet-excel/poluchit-kurs-valyut-ot-sberbanka/
'---------------------------------------------------------------------------------------
Function ЦБР(Optional ТипВалюты$, Optional Дата As Date) As Double
    Dim xmDoc As Object, date_req$
    Set xmDoc = CreateObject("msxml2.DOMDocument")
    If Not CBool(Len(ТипВалюты)) Then ТипВалюты = "USD"
    date_req = "?date_req=" & IIf(Дата, Дата, Date)
    xmDoc.async = 0: xmDoc.Load ("http://www.cbr.ru/scripts/XML_daily.asp" & date_req)
    With xmDoc.SelectSingleNode("*/Valute[CharCode='" & UCase(ТипВалюты) & "']")
        ЦБР = CDbl(. ChildNodes(4).Text) / Val(.ChildNodes(2).Text)
    End With
    Set xmDoc = Nothing
End Function

Аргументы и методы их указания полностью идентичны аргументам в первом варианте функции:
ТипВалюты(A1) — Необязательный аргумент. Ссылка на ячейку или текстовое обозначение валюты. Если не указан — возвращает курс доллара.
Дата(B1) — необязательный аргумент. Ссылка на ячейку с датой либо непосредственно дата. Если не указан, то используется текущая дата.

Так же см.:
Курс валют при помощи Power Query
Перевод текста в ячейках через Google

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам

Accessapple watchMultexPower Query и Power BIVBA управление кодамиБесплатные надстройкиДата и времяЗапискиИПНадстройкиПечатьПолитика КонфиденциальностиПочтаПрограммыРабота с приложениямиРазработка приложенийРосстатТренинги и вебинарыФинансовыеФорматированиеФункции Excelакции MulTExссылкистатистика

Процентная ставка по полису — Банк Канады

Перейти к содержимому

Поиск по сайту

ФР

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

Для получения дополнительной информации о процентной ставке по полису см. этот объяснитель.

Последние данные

Для просмотра наших графиков требуется современный браузер с поддержкой JavaScript.

Дата*	Цель (%)	Изменение (%)
7 декабря 2022 г.	4,25	+0,50
26 октября 2022 г.	3,75	+0,50
7 сентября 2022 г.	3,25	+0,75
13 июля 2022 г.	2,50	+1.00
1 июня 2022 г.	1,50	+0,50
13 апреля 2022 г.	1,00	+0,50
2 марта 2022 г.	0,50	+0,25
26 января 2022 г.	0,25	—
8 декабря 2021 г.	0,25	—
27 октября 2021 г.	0,25	—
8 сентября 2021 г.	0,25	—
14 июля 2021 г.	0,25	—

*С 2021 года изменение вступает в силу на следующий день после его объявления.

Дополнительные данные

См. также Рыночные операции Показатели, относящиеся к реализации денежно-кредитной политики, включая операционный диапазон, расчетные остатки и другие операции Банка Канады.

Расписание на 2022 год

Расписание на 2023 год

Понимание нашей политики процентной ставки

В основе денежно-кредитной политики Банка Канады лежит целевой показатель ставки овернайт. Посмотрите, что это такое и что это значит для вас.

Партнерские сайты

Следуйте за нами

Своевременный платеж: процентные ставки

Ниже показаны процентные ставки по срочному платежу, действующие с января 2017 г. &тире; Июнь 2023. Посмотреть цены от 1980-2016. Также см. Текущую стоимость ставки средств.

Таблица может прокручиваться на небольших экранах

Дата Период	Процентная ставка	Федеральный регистр
с 23 января по 23 июня	4,625%
с 22 июля по 22 декабря	4.000%	Том 87, номер 146 от 01. 08.2022 / страница 47034
с 22 января по 22 июня	1,625%	Том 87, номер 8 от 12.01.2022 / страница 1839
с 21 июля по 21 декабря	1,125%	Том 86, номер 138, 22.07.2021, стр. 38813
с 21 января по 21 июня	0,875%	Том 86, номер 17, 28.01.2021, стр. 7457
с 20 июля по 20 декабря	1,125%	Том 85, номер 133, 10.07.20, стр. 41671
с 20 января по 20 июня	2,125%	Том 84, номер 249, 30. Related Posts  Курс Официальный курс обмена 1 евро по отношению к российскому рублю: Курс евро ЦБ РФ на сегодня и завтра, официальный курс евро Центробанка, динамика, график  Курс Курс доллара на 13 сентября 2018: Курс Центробанка РФ на 13.09.2018 | Курс ЦБ РФ на дату 13 сентября 2018  Курс Курс валют прогноз на завтра: Прогноз курса доллара США — Рамблер/финансы  Курс Гривна к рублю курс сегодня: Курс украинской гривны к рублю по ЦБ РФ на сегодня и завтра. Официальный курс UAH в России: стоимость, график динамики Рубрики Курс