Страницы: 1
RSS
Курс валют ЦБ РФ, нет данных
 
Коллеги, не работает функция курс валют от ЦБ РФ. Сообщение - нет данных. Версия 2022.1.
Поскажите, как пофиксить?

К слову, нт данных и ЦБ РБ. Но подтягивает из Казахстана и Украины
Изменено: Rondine - 13.03.2022 12:51:37
 
Видимо это связано с тем, что официальный сайт ЦБР добавил защиту от DDOS вместе с капчей.
 
Только что проверил в последней версии PLEX - все работает :)
 
Татьяна Щелканова,  а какое отношение активация имеет к курсу валют? И не публикуйте ключи и пррочую конф. информацию.
 
В соответствии с новыми ориентирами кроме курсов доллара и евро стал отслеживать курс рупии и юаня, но обнаружил, что в некоторые дни курс юаня завышен на один порядок, пример:
12.05.202210,2029
13.05.202296,905
Тем не менее подозреваю, что эта ошибка в базе у самого ЦБ.
Так ли это и что с этим делать?
Изменено: KVArus - 26.05.2022 22:23:44
 
Цитата
KVArus написал:
в некоторые дни курс юаня завышен на один порядок, пример
Курс не завышен, а указан за разное количество единиц: 12.05.22 - за один CNY, а 13.05.22 за 10 CNY
Кроме того, курс рупии у ЦБР указан, за 100 INR

Для получения курса нужной валюты с сайта ЦБР для себя использую небольшую UDF, можно указывать нужную валюту и дату
Возвращает курс за единицу валюты

Код
Function GetRate(ByVal CurrencyName As String, Optional ByVal RateDate As Date) As Double
    Dim i As Long, xmldoc, nodeList, xmlNode
    On Error Resume Next
    If Len(CurrencyName) <> 3 Then Exit Function Else CurrencyName = UCase(CurrencyName)
    If RateDate = 0 Then RateDate = Date
    Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
    If Not xmldoc.Load("http://www.cbr.ru/scripts/XML_daily.asp?date_req=" & Format(RateDate, "dd\/mm\/yyyy")) Then Exit Function
    Set nodeList = xmldoc.SelectNodes("//Valute")
    For i = 0 To nodeList.Length - 1
        Set xmlNode = nodeList.Item(i)
        If xmlNode.ChildNodes(1).Text = CurrencyName Then
            GetRate = CDbl(xmlNode.ChildNodes(4).Text) / Val(xmlNode.ChildNodes(2).Text)
            Exit Function
        End If
    Next i
End Function
Страницы: 1
Читают тему (гостей: 1)
Наверх