Float Sayılarda Yuvarlama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
şahmeran
Üye
Mesajlar: 17
Kayıt: 06 Ağu 2003 09:37
Konum: İstanbul

Float Sayılarda Yuvarlama

Mesaj gönderen şahmeran »

S.A Arkadaşlar,

YTL için noktadan sonraki sayılarda yuvarlama sorunum var.

Mesela : 373,649999999998 i 373,65 e yuvarlamak istiyorum.
373,649999999992 i 373,65 e yuvarlamak istiyorum.
373,640000000001 i 373,64 e yuvarlamak istiyorum.
373,640000000004 i 373,64 e yuvarlamak istiyorum.

Arkadaşlar yukardaki gibi yuvarlamayı nasıl yapabilirim?

Teşekkür Ederim

İyi Çalışmalar
Mağrur olma padişahım senden büyük Allah var.
Kullanıcı avatarı
fahrettin
Admin
Mesajlar: 2619
Kayıt: 11 Haz 2003 10:38
Konum: İstanbul
İletişim:

Mesaj gönderen fahrettin »

bu yuvarlamayi Delphi tarafında mı yksa veritabanı tarafında mı yapacaksınız. Yani eger zaten decimal olarak 2 basamak alan bir alan tipiniz var ise bu alana bu sonucları kaydettiginizde kanaatimce beklediginiz yuvarlama yapilacaktir. Veritabanınızı belirtmemişsiniz ama bir çok veritabanı bunu bu şekilde yapar kanaatimce.... Ayrica yine veritabanınıaza bagli olarak veritabanı tarafında bu sekilde noktadan sonra x basamak yuvarlayan fonksiyonlar kullanabilirsiniz....
Delphi de bu sekilde yuvarlama yapan Delphinin hazir bir fornksiyonu var mı bilmiyorum ama siz kendiniz rahatlıkla yapabilirsiniz....
Sonucta elinizdeki rakamı 100 ile carpip tam sayiya yuvarladiktan sonra tekrar 100 e bolmeniz istediginiz sonucu olusturur...

FAKAAAT bu tamsayiya yuvarlama sırasında round fonksiyonunu dikkat edin zira round fonksiyonu beklediginiz sekilde yuvarlama yapmaz... konu ile ilgili
viewtopic.php?t=695&highlight=round
bu mesajı okumanızı tavsiye ederim...
* http://www.fahrettin.org Manzara Fotoğraflarım... :)
* http://delphiturkiye.gunduz.info Seminerler... ;)
* http://www.hakmar.com.tr Kalite bir haktır... 8)
Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Mesaj gönderen Fatih! »

fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

bkz. Delphi Help (Unit Math)

SetRoundMode

RoundTo

SimpleRoundTo

Set8087CW
Cevapla