Как округлять до сотых в большую сторону?
Материал из DRKB
Как округлять до сотых в большую сторону?[править | править код]
Прибавляешь 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;
Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00205