Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

Döviz Kur Problemi!.. Lütfen yardım..

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
8
Cevap
0
Favori
951
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar bildiğiniz gibi döviz kur kodları aşağıdaki gibi. Ama kur 1.4758 şeklinde gösteriyor. Ben 1.47 olarak göstermesini istiyorum. Yani son 2 rakamını göstermemesini istiyorum..

    Teşekkürler.. 
    <% 
      strAdres = "http://www.tcmb.gov.tr/kurlar/today.html" 
       
      Public Function VeriAl(strGelen) 
      Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) 
      With objVeriAl 
        .Open "GET" , strGelen, FALSE 
        .sEnd 
      VeriAl =  .Responsetext 
      End With 
      SET objVeriAl = Nothing 
      End Function 
       
      strVeri = VeriAL(strAdres) 
      iDolar=InStr(strVeri,"USD" ) 
      strDolarAlis=Mid(strVeri,iDolar+50,10) 
      strDolarSatis=Mid(strVeri,iDolar+51,10) 
       
      iEuro=InStr(strVeri,"EUR" ) 
       
      strEuroAlis=Mid(strVeri,iEuro+38,11) 
      strEuroSatis=Mid(strVeri,iEuro+50,11) 
      %> 
      																 
                                 Dolar: <%=strdolarsatis%>



    < Bu mesaj bu kişi tarafından değiştirildi webmaster258 -- 24 Ağustos 2009; 18:05:12 > 







  •  
      strdolarsatis = left(strdolarsatis,4)  ' soldan 4 karakter alır.


    artık strdolarsatis değişkenin 1.47 şeklinde.
  • Bu olay rakamlarda çalışmıyor herhalde...

    Daha önce bunu denemiştim zaten. Ama olamadı...

    Benim amacım: diyelimki kur 1,4123 sitede bunu 85 $ ile çarpıyorum.. Buraya kadar sorun yok...

    ama bunu FormatNumber yaptığım zaman kurda virgülden sonra 4 karakter olduğu için çarpım sonrası da virgülden sonra 4 karakter çıkartıyor..

    Yani: 85*1,4123=120.0455 çıkıyor. Bunu formatnumber yaptıpımda ise 1.200.455 rakam çıkıyor... Bunu nasıl halledebilirim. _???


    ben bunu 120,04 çıkartmak istiyorum.. Herhangi bir fonksiyonla falan bunu yapabilirmiyiz???



    < Bu mesaj bu kişi tarafından değiştirildi webmaster258 -- 24 Ağustos 2009; 20:37:35 >
  • kodlarda dikkatimi çeken : 

    strDolarAlis=Mid(strVeri,iDolar+50,10) 
      strDolarSatis=Mid(strVeri,iDolar+51,10) 
       
      iEuro=InStr(strVeri,"EUR" ) 
       
      strEuroAlis=Mid(strVeri,iEuro+38,11) 
      strEuroSatis=Mid(strVeri,iEuro+50,11)


    50,10
    51,10

    38,10
    50,11 gibi ibarelerde virgülden sonra 0000 veya 1111 koyarak denermisiniz ?

    {şu an bilgisayarında localhost yüklü olmadığı için deneyemedim ama Veri girişini böyle uzatabilirsiniz gibi}
  • quote:

    Orijinalden alıntı: xxmadxx

    kodlarda dikkatimi çeken : 

    strDolarAlis=Mid(strVeri,iDolar+50,10) 
      strDolarSatis=Mid(strVeri,iDolar+51,10) 
       
      iEuro=InStr(strVeri,"EUR" ) 
       
      strEuroAlis=Mid(strVeri,iEuro+38,11) 
      strEuroSatis=Mid(strVeri,iEuro+50,11)


    50,10
    51,10

    38,10
    50,11 gibi ibarelerde virgülden sonra 0000 veya 1111 koyarak denermisiniz ?

    {şu an bilgisayarında localhost yüklü olmadığı için deneyemedim ama Veri girişini böyle uzatabilirsiniz gibi}


    Ben kodları uzatmak istemiyorum. Aksine kısaltmak istiyorum:))

    Denedim ancak anladım ki o numaralar örnek : 38 euro satış, 50: euro alış, vb. ifade ediyor..

    Biz öyle bir kod yazmamız lazım ki! veya fonksiyon.

    1,4885 bu rakamı alsın. Son iki rakamını atsın ve farklı bir isimde farklı bir değişken meydana getirsin...

    Bu sorunu çözemezsen database' den çektireceğim dolar kurunu. Databasede kendim düzenleyeceğim artık başka çaresi yok...




  • {{: yanlış anlaşılmaz olmuş biraz

    asp pek bilgim yok ancak,
    aşağıda ki kodu gerekli yere koyduğunuzda {yada uydurduğunuzda}
    dediğiniz gibi olabilebilir gibi.... 


    <%' eger ondalik kisim 5ten büyükse bir üst tam sayyiya yuvarlanir 
       
      i = 75.5465445<BR>response.write(Round(i)) 
      Response.Write " 
      "' eger ondalik kisim 5ten küçükse bir alt tam sayyiya yuvarlanir 
       
      j = 75.494356 
      response.write(Round(j)) 
      %>
    		 
  •  
      <% 
      strAdres = "http://www.tcmb.gov.tr/kurlar/today.html" 
       
      Public Function veriAl(strGelen) 
      Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) 
      With objVeriAl 
        .Open "GET" , strGelen, FALSE 
        .sEnd 
      VeriAl =  .Responsetext 
      End With 
      SET objVeriAl = Nothing 
      End Function 
       
      strVeri = VeriAL(strAdres) 
      iDolar=InStr(strVeri,"USD" ) 
      strDolarAlis=Mid(strVeri,iDolar+50,10) 
      strDolarSatis=Mid(strVeri,iDolar+51,10) 
       
      iEuro=InStr(strVeri,"EUR" ) 
       
      strEuroAlis=Mid(strVeri,iEuro+38,11) 
      strEuroSatis=Mid(strVeri,iEuro+50,11) 
       
      son_iki_rakam_at=Split(strDolarSatis,".") 
      dolar=son_iki_rakam_at(0)&","&left(son_iki_rakam_at(1),2) 
      %> 
      														 
       
      		 
                                 Dolar: <%=dolar%>


    Ufak değişiklikler yaptım sorunsuz çalışıyor bende.

    Doları split ile 2 parçaya böldüm noktadan önceki ve sonraki kısım olarak.Noktadan sonraki kısımda left fonksiyonuyla 2 karakteri aldım.Sonra iki kısmı birleştirdim


    Yalnız aradaki işaretin nokta değil virgül olması gerekiyor.Çünkü mesela doları 12 ile çarparsanız 17,76 şeklinde çıkması gerekirken 1776 olarak çıkıyor.Ama illa virgül değil de nokta istiyorsanız:
    <%=Replace(dolar*12,",",".")%> bu şekilde de yapabilirsin.



    < Bu mesaj bu kişi tarafından değiştirildi FM. -- 25 Ağustos 2009; 12:06:15 >




  • quote:

    Orijinalden alıntı: -FeYYaZ- 

     
      <% 
      strAdres = "http://www.tcmb.gov.tr/kurlar/today.html" 
       
      Public Function veriAl(strGelen) 
      Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) 
      With objVeriAl 
        .Open "GET" , strGelen, FALSE 
        .sEnd 
      VeriAl =  .Responsetext 
      End With 
      SET objVeriAl = Nothing 
      End Function 
       
      strVeri = VeriAL(strAdres) 
      iDolar=InStr(strVeri,"USD" ) 
      strDolarAlis=Mid(strVeri,iDolar+50,10) 
      strDolarSatis=Mid(strVeri,iDolar+51,10) 
       
      iEuro=InStr(strVeri,"EUR" ) 
       
      strEuroAlis=Mid(strVeri,iEuro+38,11) 
      strEuroSatis=Mid(strVeri,iEuro+50,11) 
       
      son_iki_rakam_at=Split(strDolarSatis,".") 
      dolar=son_iki_rakam_at(0)&","&left(son_iki_rakam_at(1),2) 
      %> 
      														 
       
      		 
                                 Dolar: <%=dolar%>


    Ufak değişiklikler yaptım sorunsuz çalışıyor bende.

    Doları split ile 2 parçaya böldüm noktadan önceki ve sonraki kısım olarak.Noktadan sonraki kısımda left fonksiyonuyla 2 karakteri aldım.Sonra iki kısmı birleştirdim


    Yalnız aradaki işaretin nokta değil virgül olması gerekiyor.Çünkü mesela doları 12 ile çarparsanız 17,76 şeklinde çıkması gerekirken 1776 olarak çıkıyor.Ama illa virgül değil de nokta istiyorsanız:
    <%=Replace(dolar*12,",",".")%> bu şekilde de yapabilirsin.


    Çok Tşk ederim. Eline sağlık. Artık sorunsuz çalışıyor...




    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız