RoundTo hatalı sonuç

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Nemesis2005
Üye
Mesajlar: 136
Kayıt: 18 Oca 2005 05:24
Konum: İzmir

RoundTo hatalı sonuç

Mesaj gönderen Nemesis2005 »

Kod: Tümünü seç

 

qryKontrat.FieldByName('KDVTOPLAM').Value := RoundTo(194.69999999999930,-2);
  showmessage(FormatFloat('###.##0,######################',qryKontrat.FieldByName('KDVTOPLAM').Value));



koların sonucu 192.7 geri dönmesi gerekirken 194.700000000000017 gibi bir sonuc dönüyor ve bunu database ye böyle kaydediyor bu sorunu nasıl aşabilirim.
Her iyinin içinde bir Kötülük.Her Kötnün içide de bir iyilik vardır
Kullanıcı avatarı
ofenX
Üye
Mesajlar: 397
Kayıt: 09 Nis 2005 10:24
Konum: Diyarbakır
İletişim:

Mesaj gönderen ofenX »

Merhaba,
sizin verdiğiniz koda göre doğru vermiş. Boşuna roundto ya yüklenmişsiniz. :lol:
Eğer haneleri kısaltmak istiyorsanız size yardımcı olalım. Ama rakamı doğru çevirmiş.
Kullanıcı avatarı
ofenX
Üye
Mesajlar: 397
Kayıt: 09 Nis 2005 10:24
Konum: Diyarbakır
İletişim:

Mesaj gönderen ofenX »

Eğer 194,70 almak istiyorsanız.

Kod: Tümünü seç

showmessage(FormatFloat('###.00',qryKontrat.FieldByName('KDVTOPLAM').Value));

şeklinde alabilirsiniz.
Cevapla