Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Yuvarlama yapmasın
#1
Merhaba; 221,325 gibi listview de sayılarım var bu sayıları for döngüsü ile toplama işlemi yaptırıyorum.
Fakat 221,325 sayım 221,30 gibi bir sayıya dönüşüyor, virgülden sonraki sayının yuvarlama yapmamasını nasıl sağlarım? 



  
Adet: Integer;
Total, Fiyat: Double;
 begin
   Fiyat := StrToFloat(Items[I].SubItems[3]); // Fiyat
   Adet := StrToInt(Items[I].SubItems[4]); // Adet
   Items[I].SubItems[5] := FormatFloat('#,##0.00', (Fiyat * Adet));

 showmessage(FormatFloat('#,##0.00', (Fiyat * Adet)));
Cevapla
#2
(01-07-2017, Saat: 04:30)serhat Adlı Kullanıcıdan Alıntı: Merhaba; 221,325 gibi listview de sayılarım var bu sayıları for döngüsü ile toplama işlemi yaptırıyorum.
Fakat 221,325 sayım 221,30 gibi bir sayıya dönüşüyor, virgülden sonraki sayının yuvarlama yapmamasını nasıl sağlarım? 



  
Adet: Integer;
Total, Fiyat: Double;
 begin
   Fiyat := StrToFloat(Items[I].SubItems[3]); // Fiyat
   Adet := StrToInt(Items[I].SubItems[4]); // Adet
   Items[I].SubItems[5] := FormatFloat('#,##0.00', (Fiyat * Adet));

 showmessage(FormatFloat('#,##0.00', (Fiyat * Adet)));
Günaydın
Sayınız 221,325 buradaki virgülün sonrasını ondalık sayı olarak düşünüyorum.
formatınız #,##0.00  ondalık  iki hane  aşağıdaki gibi deneye bilirsiniz.
showmessage(FormatFloat('#,##0.000', Fiyat));
showmessage(FormatFloat('#,##0.000', Adet));
showmessage(FormatFloat('#,##0.000', (Fiyat * Adet)));
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#3
  
var
  Tutar : Double;
///////
  Tutar := trunc(Fiyat * Adet * 100) / 100;

showmessage(Tutar.toString);
Cevapla




Konuyu Okuyanlar: 2 Ziyaretçi