Пользовательская функция курса валют НБУ

Сделал таки функцию выгрузки курса валют НБУ на заданную дату для MS Excel

Function GetNBURate(ByVal CurrencyName As String, ByVal RateDate As Date) As Double
On Error Resume Next
Dim CurrencyRate As Double
CurrencyName = UCase(CurrencyName): If Len(CurrencyName) <> 3 Then Exit Function
Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
url_request = "http://bank.gov.ua/NBUStatService/v1/statdirectory/exchange?date=" & Format(RateDate, "yyyymmdd")
If xmldoc.Load(url_request) <> True Then Exit Function ' Çàïðîñ ê ñåðâåðó
Set nodeList = xmldoc.SelectNodes("/exchange/currency") 
 For i = 0 To nodeList.Length - 1
Set xmlNode = nodeList.Item(i).CloneNode(True)
If xmlNode.ChildNodes(3).Text = CurrencyName Then
CurrencyRate = Val(Replace(xmlNode.ChildNodes(2).Text, ",", "."))
GetNBURate = CurrencyRate
Exit Function
End If
Next
End Function

Реклама

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход /  Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход /  Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход /  Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход /  Изменить )

w

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.