Delphi - база знаний


Как округлять до сотых в большую сторону?


Как округлять до сотых в большую сторону?



Прибавляешь 0.5 затем отбрасываешь дробную часть:

Uses Math;  

Function RoundMax(Num:real; prec:integer):real; 
begin 
  result:=roundto(num+Power(10, prec-1)*5, prec); 
end;    


До сотых соответственно будет:

Function RoundMax100(Num:real):real; 
begin 
  result:=round(num*100+0.5)/100; 
end;    


Автор ответа: Vit
Взято с Vingrad.ru




Начало  Назад  Вперед