Krasgmu.net Новости Здоровье Медицина Консультации Реклама Контакты Вход Мобильная версия (PDA)

Visual Basic 6, VBA - курс доллара на определенную дату с сайта ЦБ РФ

Код Visual Basic. Позволяет  импортировать данные о курсе доллара c cbr.ru.

Этот код на Visual Basic 6 (VBA) позволяет узнать курс доллара и других валют с сайта ЦБ РФ http://www.cbr.ru/

 Dim zapr$, otvet$, curs$
    Dim oHttp As Object
      dat = Date 'здесь можно указать любую дату - 06.09.2014
        zapr = "http://cbr.ru/currency_base/daily.aspx?date_req=" & dat
       On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP") 'создаем объект для HTML запроса
    If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    On Error GoTo 0
    If oHttp Is Nothing Then MsgBox$ "Ошибка " & Err.Number & " " & Err.Description: Exit Sub
    oHttp.Open "GET", zapr, False
    oHttp.Send
    otvet = UCase(oHttp.responseText)
   curs = CCur(Mid$(otvet, InStr(InStr(1, otvet, "USD"), otvet, "</TD></TR>") - 7, 7))
   Msgbox curs

В итоге мы получим Сообщение с курсом доллара. Например: 36.9219

Вместо USD (доллар США), можно узнать курс Евро - EUR,  японские иены - JPY,

Список кодов валют можно посмотреть тут: http://cbr.ru/currency_base/daily.aspx?date_req=06.09.2014

Код работает в Visual Basic 6.0 и VBA (макросы MS Office)

 

Сохранить/поделиться в соцсетях:

Копирование информации без ссылки на krasgmu.net запрещено!
Раздел: Софт - программы | | Просмотров: 909
Теги/Ключевые слова: vba, vb6, Visual Basic
Система Orphus
Нашли ошибку? Выделите текст с ошибкой и нажмите Ctrl+Enter, чтобы сообщить нам о ней.
Оставить комментарий/отзыв:
avatar

Статья по теме: «Visual Basic 6, VBA - курс доллара на определенную дату с сайта ЦБ РФ» - раздела Софт - программы - 2016

Медицинские новости Здоровье и Красота Медицинский Журнал Родители и Дети Онлайн Видео консультации врачей онлайн Онлайн консультации
ваши вопросы врачам
медицинские организации в Красноярске Каталог медучреждений
клиники в Красноярске