Kod:
Function TCMB_Kur(Tarih As Date, DovTip As String, Tipi As String) As Variant
On Error GoTo ErrorHandler
Dim xDoc As Object
Set xDoc = CreateObject("MSXML2.DOMDocument")
xDoc.async = False
xDoc.validateOnParse = False
Dim strURL As String
Dim retval As Variant
If Tarih = Date Then
strURL = "http://www.tcmb.gov.tr/kurlar/today.xml"
Else
If Weekday(Tarih, vbMonday) = 6 Then
Tarih = Tarih - 1
ElseIf Weekday(Tarih, vbMonday) = 7 Then
Tarih = Tarih - 2
End If
Dim myDay As String
Dim myMonth As String
Dim myYear As String
myDay = Format(Day(Tarih + 0), "00")
myMonth = Format(Month(Tarih + 0), "00")
myYear = Year(Tarih + 0)
strURL = "http://www.tcmb.gov.tr/kurlar/" & myYear & myMonth & "/" & myDay & myMonth & myYear & ".xml"
End If
xDoc.Load strURL
Dim KurListesi As Object
Set KurListesi = xDoc.DocumentElement
Select Case DovTip
Case "USD"
Select Case Tipi
Case "Döviz Alış"
retval = KurListesi.ChildNodes(0).ChildNodes(3).Text
Case "Döviz Satış"
retval = KurListesi.ChildNodes(0).ChildNodes(4).Text
Case "Efektif Alış"
retval = KurListesi.ChildNodes(0).ChildNodes(5).Text
Case "Efektif Satış"
retval = KurListesi.ChildNodes(0).ChildNodes(6).Text
End Select
Case "EUR"
Select Case Tipi
Case "Döviz Alış"
retval = KurListesi.ChildNodes(3).ChildNodes(3).Text
Case "Döviz Satış"
retval = KurListesi.ChildNodes(3).ChildNodes(4).Text
Case "Efektif Alış"
retval = KurListesi.ChildNodes(3).ChildNodes(5).Text
Case "Efektif Satış"
retval = KurListesi.ChildNodes(3).ChildNodes(6).Text
End Select
End Select
If IsEmpty(retval) Then retval = 0
TCMB_Kur = Replace(retval, ".", ",") + 0
Exit Function
ErrorHandler:
TCMB_Kur = 0
End Function