Delphi ile Yuvarlama Yardim Ederseniz Sevinirim.

[delphix]

Merhabalar ilk olarak simdiden tesekkur ediyorum.. Benim sorunum delphi ile ilgili matematiksel islemler ornek olarak:

Edit1.Text := Floattostr(((65.25 * 15 / 100) + 62.25));
kodunu yazin calistirin programi sonuc = 72,0375
cikacaktir..

Ama Normal bir hesap makinesi ile bu deger 71,5875

yukari yuvarlasa diyecegim yok bu kadar buyuk degerde yuvarlamasi mumkun degil.. kisacasi istedigim yardim delphi de de normal hesap makinesi ile aldigim sonucu almak.. normal tam sayilarda tam sonuc veriyor ama isin icine ondalikli sayilar girince hata yapiyor.. bir suru komut denedim roundto gibi ama fayda etmedi .. Bunun icin bir fonksiyon varsa yada daha once karsilasan biri varsa yardimci olursa sevinirim.

[Caylaq]

function R2(const AValue : extended ; const ADigit : TRoundToRange) :
extended ;
var X : extended ; i : integer ;
begin
X := 1.0 ;
for i := 1 to Abs(ADigit) do X := X * 10 ;
if ADigit<0
then Result := Round(AValue * X) / X
else Result := Round(AValue / X) * X ;
end;

Bu arada TRoundToRange tipini siz tanımlamalısınız şöyle ,



type TRoundToRange = -37..37;



Kullanımı basit, ilk parametre Double sayınız , ikinci parametre eğer negatif veririseniz virgülden sonraki yuvarlama basamak sayısı pozifit verirseniz tam sayının yuvarlama basamak sayısı dikkate alınır.
Örn:


r2(2.0736,-2); //2.07 sonucunu döndürür.


Hocam bu bir alıntıdır. İşine yarar umarım kolay gelsin