курс валют из интернета

[tofik]

у кого нибудь есть код или dll, с помощью которого можно получать курс валют из интернета

[Sirik]

Я думаю что самый "простой" способ:
1. Узнать на каком сайте есть такой курс (вудь на каждой бирже разный курс )
2. Загружать данную страницу Winsock'ом или Webbrowser'ом.
3. Анализировать загруженные данные и выбрать соответствующую информацию

Может и есть способ и попроще, но так сделал показ погоды

[GSerg]

Помнится, делали уже.
Поищи на форуме слово webquery.

[Andrey Fedorov]

Да что там делать-то?
Упрощенно см. код ниже

Код: Выделить всё

If ПолучитьКурсВалютыЦентробанка(d, False, X) Then
    If IsNumeric(X.Text) Then curУЕ = CCur(Mid$(X.Text, 3))
End If

Private Function ПолучитьКурсВалютыЦентробанка(dDate As Date, bЕвро As Boolean, X As MSXML.DOMDocument) As Boolean
    Dim sUrlRequest, iПопытка As Integer

    ' Создаем экземпляр объекта - XML парсера
    Set X = CreateObject("MSXML.DOMDocument")
   
    X.async = False
    'запрос к серверу центробанка в принятом формате на получение xml документа
    sUrlRequest = "http://www.cbr.ru/scripts/XML_dynamic.asp?date_req1=" _
                & Format(dDate, "dd.mm.yyyy") _
                & "&date_req2=" & Format(dDate, "dd.mm.yyyy") _
                & "&VAL_NM_RQ=" & "R0123" & IIf(bЕвро, 9, 5)

    ' загружаем документ по url
    If X.Load(sUrlRequest) Then ПолучитьКурсВалютыЦентробанка = True
End Function

[Andrey Fedorov]

А вот их ссылочку нашел: http://cbr.ru/scripts/Root.asp?Prtid=SXML

[Sirik]

Да что там делать-то?
Упрощенно см. код ниже

Код: Выделить всё

If ПолучитьКурсВалютыЦентробанка(d, False, X) Then
    If IsNumeric(X.Text) Then curУЕ = CCur(Mid$(X.Text, 3))
End If

Private Function ПолучитьКурсВалютыЦентробанка(dDate As Date, bЕвро As Boolean, X As MSXML.DOMDocument) As Boolean
    Dim sUrlRequest, iПопытка As Integer

    ' Создаем экземпляр объекта - XML парсера
    Set X = CreateObject("MSXML.DOMDocument")
   
    X.async = False
    'запрос к серверу центробанка в принятом формате на получение xml документа
    sUrlRequest = "http://www.cbr.ru/scripts/XML_dynamic.asp?date_req1=" _
                & Format(dDate, "dd.mm.yyyy") _
                & "&date_req2=" & Format(dDate, "dd.mm.yyyy") _
                & "&VAL_NM_RQ=" & "R0123" & IIf(bЕвро, 9, 5)

    ' загружаем документ по url
    If X.Load(sUrlRequest) Then ПолучитьКурсВалютыЦентробанка = True
End Function

Ну сколько раз просить: ну не пишите названия функции и процудур по-русски

[Andrey Fedorov]

Ну скажем так - в России русские буквы вводятся без проблем (и код был взят из программы для российской конторы). Тебе просто скопировали кусок готового кода, а не писали специально для тебя. Так что с переводом на украинскую (или какую еще) мову уж как нибудь сам - мне как-то неохота еще и текст править...

Кстати, а тебе курс нашего центробанка нужен или украинского? А то тут для Российского...

[tofik]

Народ!!!
Я так понимаю, выше описанным способом можно получить курсы валют, только относительно рубля!
А есть ли возможность делать запрос, чтобы мне получать курс одной валюты относительно другой валюты!
Допустим я считаю деньги не в рублях а в долларах и мне понадобилось узнать курс ЕВРО относительно моей основной валюты т.е. относительно доллара США!

[tyomitch]

Ну, подели курс евро в рублях на курс доллара в рублях...

[tofik]

это понятно!
но встает вопрос об знаках после запятой, округлении и т.д.
и при пересчете допустим если я поделю курс евро в рублях на курс доллара в рублях,
округлю и... умножив потом полученное число на курс доллара в рублях, я могу и не получить верный курс ЕВРО

[Yojik21]

На форексе торгуешь?
Похоже вырисовуется Джордж Сорос - 2

[tofik]

нет =)
на самом деле, пересчет это не рационально,
загрузить с сайта это можно

[tofik]

???

[alibek]

А подумать нельзя?
Если тебе нужен курс евро по отношению к доллару, то ищи сайт, который предоставляет такую информацию.
Как считать информацию с сайта, тебе показали. Какое отношение твой текущий вопрос имеет к VB?

[tofik]

Так нет, а сайт ЦБ РФ не позволяет это сделать?

[alibek]

А почему бы тебе не задать этот вопрос администратору сайта ЦБ РФ?

[tofik]

неплохо!
так я и сделаю =)