Virgülden sonraki çift haneyi yuvarlama!!!

[Akshan]

Arkadaşlar forumu inceledim ama sorunuma çözüm bulamadım..

Problem şu; virgülden sonraki haneleri bir üstündeki 5 e bölünebilen rakama yuvarlamak istiyorum...

Mesela 12,16'yı 12,20
12,13'ü 12,15
20,11'i 20,15 gibi

Teşekkür ederim..[/b]

[Mustafa_Ucar]

Kod: Tümünü seç

function TForm1.GaripYuvarla(sayi: Real): Real;
var
 s:string;
 VirgulNo:byte;
 sonuc:Real;
begin
 s:=FloatToStr(sayi); 
 VirgulNo:=AnsiPos(',',s);
 sonuc:=StrToFloat(copy(s,1,VirgulNo+1)); //Virgül+1 basamak alındı

 s:=copy(s,VirgulNo+2,1); //yuvarlama buna göre yapılacak
 if StrToInt(s)>=5 then sonuc:=Sonuc+0.1;
 if StrToInt(s)<5 Then sonuc:=sonuc+0.05; 
 Result:=sonuc;
end;

Kolay gelsin

[Akshan]

Verdiğiniz kodla sorunu çözdüm teşekkürler...

[Mustafa_Ucar]

Görevimiz...

Kolay gelsin