DELPHI FAQ: Как округлять до сотых в большую сторону?
Как округлять до сотых в большую сторону?
Previous
Home
Next
Прибавляешь 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
http://forum.vingrad.ru
DELPHI FAQ
