Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Merkez Bankasından Döviz Kuru Alma

Conqueror20
Conqueror20
Excel Cevaplanmış Soruları
10
8138

Merkez Bankasından Döviz Kuru Alma

Çözüldü #1
Conqueror20
Hesap Aktif Değil
Conqueror20
Bul
Aktivasyon Bekleyen
Adı Soyadı:
Yaşı: 35
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/05/2016,21:56
Yorumları: 38
Konuları: 9
Kayıt Tarihi: 28/02/2011
İ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
simendifer
Onursal Üye
simendifer
Bul
Onursal Üye
Adı Soyadı: Ek.... ÇE....
Yaşı: 66
Konum: Çankırı
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: Dün,20:41
Yorumları: 1.014
Konuları: 97
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 345
Mesleğiniz: emekli
bu program işinizi görermi
.rar Döviz_kur_sorgulama.rar (Dosya Boyutu: 31,11 KB | İndirme Sayısı: 156)
Cevapla
#3
Conqueror20
Hesap Aktif Değil
Conqueror20
Bul
Aktivasyon Bekleyen
Adı Soyadı:
Yaşı: 35
Konum: İzmir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/05/2016,21:56
Yorumları: 38
Konuları: 9
Kayıt Tarihi: 28/02/2011
(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
serkandiker
Aktif Üye
serkandiker
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 37
Konum: Kütahya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 16/07/2024,16:50
Yorumları: 49
Konuları: 14
Kayıt Tarihi: 06/05/2009
Teşekkür Puanı: 6
(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
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 55
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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
serkandiker
Aktif Üye
serkandiker
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 37
Konum: Kütahya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 16/07/2024,16:50
Yorumları: 49
Konuları: 14
Kayıt Tarihi: 06/05/2009
Teşekkür Puanı: 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