Genelde merkez bankası kuru çekilirken hep problem yaşandığı malumunuz.Ama sanırım pek kimsenin bilmediği bir servise sahip aslında merkez bankası.fonksiyon VB için yazıldı diğer dillere kolaylıkla çevirebilirsiniz sanıyorumparametrelere gelinceDoviz : Dovizin kısa adı (USD,EUR,GBP vs..)Tarih : kuru çekmek istediğiniz tarihNode : Xml dosyasında dovizin yeriUSD : 0EUR : 11GBP : 12gibiörnek olarakhttp://www.tcmb.gov.tr/kurlar/201201/03012012.xml bu adresten alabileceğiniz diğer verilere gözatabilirsiniz.———————————————————————-Public Function TCMB_Doviz_Kuru_Xml(ByVal doviz As String, _ByVal tarih As Date, _Node As Long) As DoubleDim xmlFile As StringDim oDoc As New DOMDocumentDim sonucxmlFile = “http://www.tcmb.gov.tr/kurlar/” & Year(tarih) & Left(“00”, 2 – Len(Month(tarih))) & Month(tarih) & “/” & Left(“00”, 2 – Len(Day(tarih))) & Day(tarih) & Left(“00”, 2 – Len(Month(tarih))) & Month(tarih) & Year(tarih) & “.xml”oDoc.async = FalseoDoc.resolveExternals = FalseoDoc.setProperty “ServerHTTPRequest”, TrueoDoc.Load (xmlFile)If (oDoc.parseError.errorCode = 0) ThenSet sonuc = oDoc.getElementsByTagName(“Currency”)TCMB_Doviz_Kuru_Xml = sonuc.Item(Node).childNodes.Item(3).nodeTypedValueElseTCMB_Doviz_Kuru_Xml = 0End IfEnd Function
