YTL ye göre döviz kuru alma (tr) hakkında yorumlar / Yeni Yorum Yaz
| | XML üzerinden Döviz Satış Kurları / YTL ye göre döviz kuru alma - Murat YANDEMİR - 8.01.2017 / Cevapla |
<%
private function gethttp(url)
Set strhttp = server.createobject("microsoft.xmlhttp" )
strhttp.Open "get" , url, false
strhttp.send
gethttp = strhttp.responsetext
Set strhttp = Nothing
End function
adres="http://www.tcmb.gov.tr/kurlar/today.xml"
bilgi = gethttp(adres)
d=InStr(1,bilgi,"USD" )
d=InStr(d,bilgi,"<ForexSelling>" )
dolar=Mid(bilgi,d,20)
e=InStr(1,bilgi,"EUR" )
e=InStr(e,bilgi,"<ForexSelling>" )
euro=Mid(bilgi,e,20)
euro=Replace(euro,"." ,"," )
dolar=Replace(dolar,"." ,"," )
response.write "1 EUR : " & euro & " YTL<br>"
response.write "1 USD : " & dolar &" YTL<br>"
%> | |
|
| | düzeltilmiş hali / YTL ye göre döviz kuru alma - Pegasus - 7.03.2007 / Cevapla |
<%
private function gethttp(url)
Set strhttp = server.createobject("microsoft.xmlhttp" )
strhttp.Open "get" , url, false
strhttp.send
gethttp = strhttp.responsetext
Set strhttp = Nothing
End function
adres="http://www.tcmb.gov.tr/kurlar/today.html"
bilgi = gethttp(adres)
d=InStr(1,bilgi,"USD" )
dolar=Mid(bilgi,d+50,10)
e=InStr(1,bilgi,"EUR" )
euro=Mid(bilgi,e+50,11)
ed=euro/dolar
response.write "1 EUR : " & Replace(formatnumber((euro),4),"." ,"," ) &" YTL"
response.write "<br>1 USD : " & Replace(formatnumber((dolar),4),"." ,"," ) &" YTL"
response.write "<br>1 EUR : " & Replace(formatnumber((ed),4),"." ,"," ) &" USD"
%> | |
|
| | Başlık Yok / YTL ye göre döviz kuru alma - halil - 24.01.2007 / Cevapla |
euro=Mid(bilgi,e+50,11) yazan kismi
euro=Mid(bilgi,e+50,10) ile degistirdiginizde sorun kalmiyor | |
|
| | DB Ye kaydedemiyorum / YTL ye göre döviz kuru alma - Suat Doğu - 8.05.2006 / Cevapla |
| arkadaslar bi scriptin içindeki eski tl yi yeni Tl ye cevirmeye calistim. Yalniz bu kuru aliyo DB ye yaziyo sonra ordan alip kullaniyo... &formatnumber((euro),2)&" YTL yaptigimda ise 1,00 diye görüyor. euro=replace(euro,",",",")*100 yaptigimda ise 136,00 olarak görüyor. Bunu nasil 1,36 olarak kaydettirebilirim db ye ? | |
|
| | Sabit ve basit bi döviz kuru / YTL ye göre döviz kuru alma - Silici X - 14.03.2006 / Cevapla |
| Eline Saglik Çok Isime Yaradi Tesekkürler | |
|
| | Başlık Yok / YTL ye göre döviz kuru alma - barrotti - 25.01.2005 / Cevapla |
euro=Replace(euro,"," ,"," )
dolar=Replace(dolar,"," ,"," )
response.write "1 EUR : " &formatnumber((euro),4)&" YTL"
response.write "1 USD : " &formatnumber((dolar),4)&" YTL" | |
|
| | Başlık Yok / YTL ye göre döviz kuru alma - Bilgehan - 11.01.2005 / Cevapla |
dostum verdigin kodu koydum bu sefer
1 EUR : 0.00 YTL
1 USD : 0.00 YTL
oldu simdide  | |
|
| | Başlık Yok / YTL ye göre döviz kuru alma - Bahacan Yazılım Hizmetleri - 8.01.2005 / Cevapla |
Bilgehan.
Bazi sunucularda bu hata var evet. Bunun için ;
euro=replace(euro,",",",")/10000
dolar=replace(dolar,",",",")/10000
olarak degisiklik yapman yeterli.
Iyi günler. | |
|
| | Başlık Yok / YTL ye göre döviz kuru alma - Bilgehan - 8.01.2005 / Cevapla |
ya dostum eline saglik ama bu 1,8222 YTL gösterecegi yerde 18.222,00 YTL olarak gösteriyor buna bi el atarsan sevinirim
birde alis satis kurlarini koyarsan daha da iyi olur...
tskler... | |
|
1 - 26 arası / 9 toplam yorum
Yorum Yaz
|
YTL ye göre döviz kuru alma (tr)