Anasayfa > Kodlar > Visual Basic 6 ile TCBM’den kur çekmek

Visual Basic 6 ile TCBM’den kur çekmek


Yazmakta olduğum programda Türkiye Cumhuriyeti Merkez Bankasından kur çekmem gerekti. Bunu başarabilmek için bir sürü döküman ve örnek inceledim. Umarım ihtiyacı olanlar bu kodla sorunlarını daha çabuk çözerler. Çalışmanızda başarılar arkadaşlar.



Public Function KurlariListeyeYükle(dDate As Date) As Boolean
Dim xmlFile         As String
Dim oDoc            As New DOMDocument
Dim currNode        As IXMLDOMNode
Dim currNodeHepsi   As Msxml.IXMLDOMNodeList
Dim i As Integer
oDoc.async = False
List1.Clear
If dDate = Date Then
xmlFile = “http://www.tcmb.gov.tr/kurlar/today.xml”
Else
xmlFile = “http://www.tcmb.gov.tr/kurlar/” & Year(dDate) & Format(Month(dDate), “00”) & “/” & Format(dDate, “ddmmyyyy”) & “.xml”
End If
If oDoc.Load(xmlFile) Then
Set currNodeHepsi = oDoc.documentElement.childNodes
For Each currNode In currNodeHepsi
If currNode.nodeName <> “Currency” Then Exit For
On Error Resume Next
If currNode.childNodes.Item(3).Text > -1 Or currNode.childNodes.Item(4).Text > -1 Then
If Err.Number = 0 Then
List1.AddItem “[” & currNode.Attributes.Item(1).nodeValue & “](” & currNode.childNodes.Item(0).Text & “) Alış Kuru:” & currNode.childNodes.Item(2).Text & ” Satış Kuru:” & currNode.childNodes.Item(3).Text
End If
End If
Err.Clear
Next
End If
End Function

 


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: