Skip to main content

AccessTr.neT


Merkez Bankasından Döviz Kuru Alma

Merkez Bankasından Döviz Kuru Alma

Çözüldü #1
İyi akşamlar,
2014 yılına ait bütün günleri alt alta yazdıracığım. Tarihlerin yan tarafına ise o güne ait usd ve Euro kurunu aldırmak istiyorum. Yardımcı olabilir misiniz?
(23/10/2014, 00:17)Conqueror20 yazdı: İyi akşamlar,
2014 yılına ait bütün günleri alt alta yazdıracığım. Tarihlerin yan tarafına ise o güne ait usd ve Euro kurunu aldırmak istiyorum. Yardımcı olabilir misiniz?

Arkadaşlar bu konuda yardımcı olabilecek kimse yok mu?
Cevapla
#2
bu program işinizi görermi
.rar Döviz_kur_sorgulama.rar (Dosya Boyutu: 31,11 KB | İndirme Sayısı: 152)
Cevapla
#3
(24/10/2014, 20:53)simendifer yazdı: bu program işinizi görermi

bu program kurları sıfır olarak alıyor. merkez bankasının sitesi değişti. o yüzden veriyi yanlış alıyor olmasın
Cevapla
#4
(29/10/2014, 01:17)Conqueror20 yazdı:
(24/10/2014, 20:53)simendifer yazdı: bu program işinizi görermi

bu program kurları sıfır olarak alıyor. merkez bankasının sitesi değişti. o yüzden veriyi yanlış alıyor olmasın

Html uzantılar iptal xml üzerinden gidin
serkandiker, 06-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
sayın Conqueror20,

Merkez Bankasından Tabloya Kur Alma

yukarıdaki bağlantıda yer alan konu içerisinde sayın ozan bey tarafından sunulmuş bir örnek mevcut.fikir vermesi açısından;(her ne kadar Access kategorisinde olsa dahi) örneği incelemek sureti ile gerek işleyişi öğrenebilir gerekse de denemede bulunarak kendi örneğinize adapte etmeye çalışabilirsiniz.bilgilerinize.

iyi çalışmalar,
saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
Lightbulb #6
Kod:
Set xmlDoc = CreateObject("Msxml.DOMDocument")
  Dim DovizListesi As Object

  Dim Dovizler As Object
  xmlDoc.async = False
     xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"
     
  Set DovizListesi = xmlDoc.documentElement.selectNodes("Currency")

Dim kod As String

  For Each Dovizler In DovizListesi

     DovizCinsi = Dovizler.selectSingleNode("Isim").Text
     OrjIsim = Dovizler.selectSingleNode("CurrencyName").Text
     Alis = Dovizler.selectSingleNode("ForexBuying").Text
     Satis = Dovizler.selectSingleNode("ForexSelling").Text
     
    Me.dovizal = Mid(Dovizler.selectSingleNode("ForexBuying").Text, 1, 1) & "," & Mid(Dovizler.selectSingleNode("ForexBuying").Text, 3, 3)
    Me.dovizsat = Mid(Dovizler.selectSingleNode("ForexSelling").Text, 1, 1) & "," & Mid(Dovizler.selectSingleNode("ForexSelling").Text, 3, 3)

If DovizCinsi = "EURO" Then
            Exit For
         End If
         


  Next
 
 Set xmlDoc = Nothing

Hocam Doviz cinsi yazan bölümü aşağıdaki listede bulunan listedeki para  birimine göre düzenle yapıp dovizal ve dovizsat değişkene atayabilir veya metin kutusuna aktara bilirsiniz.Yardımcı olması dileğiyle iyi günler
Kod:
http://www.tcmb.gov.tr/kurlar/today.xml
serkandiker, 06-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task