{"id":211,"date":"2019-02-20T13:54:08","date_gmt":"2019-02-20T10:54:08","guid":{"rendered":"http:\/\/xn--e1agicip.xn--90ais\/?p=211"},"modified":"2019-02-20T14:07:01","modified_gmt":"2019-02-20T11:07:01","slug":"http-request-exchage-rate","status":"publish","type":"post","link":"https:\/\/xn--e1agicip.xn--90ais\/index.php\/2019\/02\/20\/http-request-exchage-rate\/","title":{"rendered":"\u0417\u0430\u043f\u0440\u043e\u0441 \u043a\u0443\u0440\u0441\u043e\u0432 \u0441 \u0441\u0430\u0439\u0442\u0430 \u041d\u0411 \u0420\u0411 \u0438\u0437 VBA"},"content":{"rendered":"\n

\u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043b\u0443\u0447\u0430\u0442\u044c \u043a\u0443\u0440\u0441\u044b \u041d\u0411 \u0420\u0411 \u0441 \u0441\u0430\u0439\u0442\u0430 \u043d\u0443\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u0444\u0443\u043a\u043d\u0446\u0438\u044e (VBA)<\/p>\n\n\n\n

Public Function GetKursFromNBRB(ByVal Data As Date, Optional curType As String = “USD”) As Double
Dim xmlhtp As MSXML2.XMLHTTP
Dim XMLDoc As MSXML2.DOMDocument
Dim corData As String
Set xmlhtp = New MSXML2.XMLHTTP
Set XMLDoc = New DOMDocument
corData = Replace(Format(Data, “mm\/dd\/yyyy”), “.”, “\/”)
With xmlhtp
.Open “GET”, “http:\/\/www.nbrb.by\/Services\/XmlExRates.aspx?ondate=” & corData, False
.send “http:\/\/www.nbrb.by\/Services\/XmlExRates.aspx?ondate=” & corData
XMLDoc.LoadXML .responseText
End With
GetKursFromNBRB = Replace(XMLDoc.selectSingleNode(“\/DailyExRates\/Currency[CharCode = “”” & curType & “””]\/Rate”).Text, “.”, “,”)
End Function<\/p><\/blockquote>\n\n\n\n

\u041d\u0435 \u0437\u0430\u0431\u044b\u0432\u0430\u0435\u043c \u0432 references \u0432\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0443 Microsoft XML<\/p>\n\n\n\n

<\/p>\n","protected":false},"excerpt":{"rendered":"

\u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043b\u0443\u0447\u0430\u0442\u044c \u043a\u0443\u0440\u0441\u044b \u041d\u0411 \u0420\u0411 \u0441 \u0441\u0430\u0439\u0442\u0430 \u043d\u0443\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u0444\u0443\u043a\u043d\u0446\u0438\u044e (VBA) Public Function GetKursFromNBRB(ByVal Data As Date, Optional curType As String = “USD”) As Double Dim xmlhtp As MSXML2.XMLHTTP Dim XMLDoc As MSXML2.DOMDocument Dim corData As String Set xmlhtp = New MSXML2.XMLHTTP Set XMLDoc = New DOMDocument corData = Replace(Format(Data, “mm\/dd\/yyyy”), “.”, […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7],"tags":[50,49,51],"class_list":["post-211","post","type-post","status-publish","format-standard","hentry","category-office","tag-exchange-rate","tag-vba","tag-xml"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t