Округление

[ul_mrAlex]

Не получается сделать округление чисел после запятой до сотых

uses 
.., Math;
 
....
 
procedure Tglav_index.Button8Click(Sender: TObject);
var a1,a2,a3,a4,a6:real;
    b1,b2,b3,b5,b6:real;
    c1,c2,c3,c4,c6:real;
    sum:real;
begin
 
ADOQuery9.Close;
ADOQuery9.SQL.Clear;
ADOQuery11.Close;
ADOQuery11.SQL.Clear;
ADOQuery9.SQL.Add('SELECT * FROM t_stoimost_uslugi WHERE tip_lico like '''+ '%' +DBEdit33.Text+ '%' +''' AND');
ADOQuery9.SQL.Add('vid_ts like '''+ '%' +DBEdit36.Text+ '%' +'''');
ADOQuery11.SQL.Add('SELECT * FROM t_ozid WHERE tip_lico like '''+ '%' +DBEdit33.Text+ '%' +''' AND');
ADOQuery11.SQL.Add('vid_ts like '''+ '%' +DBEdit36.Text+ '%' +'''');
ADOQuery9.Open;
ADOQuery11.Open;
 
if a2=0 then a3:=0;
a2:=strtofloat(DBEdit18.Text);//цена без НДС экскурсовод
a4:=strtofloat(DBEdit35.Text);//продолжительность экскурсии
a6:=a2*a4;
sum_bez_NDS.Text:=Floattostr(roundto(a6, -2));
//FloatToStrf(a6,ffgeneral,6,2);
a1:=0.18*a6;
NDS.Text:=Floattostr(roundto(a1, -2));
//FloatToStrF(a1,ffFixed,6,2);  //НДС экскурсовод
a3:=a6+a1;  //экскурсовод * продолжительность экскурсии
//stoimost_NDS.Text:=FloatToStrF(a3,ffFixed,6,2);
stoimost_NDS.Text:=Floattostr(roundto(a3, -2));
 
b2:=strtofloat(DBEdit32.Text);//цена без НДС ТС
b5:=strtofloat(DBEdit19.Text);//продолжительность поездки
b6:=b2*b5;
sum_bez_NDS1.Text:= Floattostr(roundto(b6, -2));
//FloatToStrF(b6,ffFixed,6,2);
b1:=0.18*b6;
NDS1.Text:=Floattostr(roundto(b1, -2));
//FloatToStrF(b1,ffFixed,6,2); //НДС стоимость ТС
b3:=b6+b1;
stoimost_NDS1.Text:=Floattostr(roundto(b3, -2));
//FloatToStrF(b3,ffFixed,6,2);
 
if c4=0 then c3:=0;
c2:=strtofloat(DBEdit38.Text);//цена без НДС ожидания
c4:=strtofloat(DBEdit39.Text);//продолжительность ожидания
c6:=c2*c4;
sum_bez_NDS2.Text:=Floattostr(roundto(c6, -2));
//FloatToStrF(c6,ffFixed,6,2);
c1:=c6*0.18;
NDS2.Text:=Floattostr(roundto(c1, -2));
//FloatToStrF(c1,ffFixed,6,2); //НДС стоимость ТС
c3:=c6+c1;
stoimost_NDS2.Text:=Floattostr(roundto(c3, -2));
//FloatToStrF(c3,ffFixed,6,2);
 
sum:=a3+b3+c3;
sum_it.text:=Floattostr(roundto(sum, -2));
//floattostrf(sum,ffFixed,6,2);
 
end;

Считает в итоге 4881,55+410,40+0=5291,96 , когда д.б. 5291,95.

[Аватар]

c6:=c2*c4; 
sum_bez_NDS2.Text:=Floattostr(roundto(c6, -2)); 
//FloatToStrF(c6,ffFixed,6,2); 
c1:=c6*0.18;   //сумму без НДС показываешь округленную, а НДС считаешь не от округленной
NDS2.Text:=Floattostr(roundto(c1, -2));

[ul_mrAlex]

Сообщение от Аватар

....//сумму без НДС показываешь округленную, а НДС считаешь не от округленной

Простите, маленько не понял, это как?

[Аватар]

Простите, маленько не понял, это как?

Это так:

Получил стоимость без НДС = 2677,7751 округлил и отобразил 2677,78

Считаешь НДС 2677,7751*0,18=481,999518 округлил и отобразил 482,00
а нужно 2677,78*0,18=482,0004 и после округления 482,00 (здесь совпало)

Считаешь стоимость с НДС 2677,7751+481,999518=3159,774618 после округления 3159,77
а нужно 2677,78+482,00=3159,78

в итоге 3159,77 <> 2677,78+482,00

[ul_mrAlex]

b2:=strtofloat(DBEdit32.Text);//
b5:=strtofloat(DBEdit19.Text);
b6:=b2*b5;
sum_bez_NDS1.Text:= Floattostr(roundto(b6, -2));
b1:=0.18*b6;
b3:=b6+b1;
NDS1.Text:=FloatToStr(roundto(b1, -2)); 
stoimost_NDS1.Text:=Floattostr(roundto(b3, -2));

Это таким образом получается?

[Аватар]

b6:=b2*b5;
sum_bez_NDS1.Text:= Floattostr(roundto(b6, -2));
b1:=0.18*StrToFloat(sum_bez_NDS1.Text);
NDS1.Text:=FloatToStrF(b1,ffFixed,6,2); 
b3:=StrToFloat(sum_bez_NDS1.Text)+StrToFloat(NDS1.Text);
stoimost_NDS1.Text:=Floattostr(roundto(b3, -2));

[ul_mrAlex]

Спасибо, разжевали