几个数学计算函数

1、IntPower()

function IntPower(const Base: Extended; const Exponent: Integer): Extended register;

作用：Calculates the integral power of a base value.//计算一个数的整数幂

2、abs()

function Abs(X);

作用：Returns an absolute value.//返回一个数的绝对值

3、Frac()

function Frac(X: Extended): Extended;

作用：Returns the fractional part of a real number.//返回一个实数的小数部分

由这个三个函数可以写一个自定义的四舍五入的函数：

function Round45(GetOldCurr:Currency;Digits:integer=2):Currency; // 实数取四舍五入，使用 myCurrency:=Round45(myCurrency,2) var tmpCurr:Currency; begin tmpCurr:=GetOldCurr * (IntPower(10,Digits));//小数点右移digits位 if Abs(Frac(tmpCurr))< 0.5 then tmpCurr:= Int(tmpCurr) //保留整数部分 else if tmpCurr>0 then tmpCurr:=Int(tmpCurr)+1 else tmpCurr:= Int(tmpCurr)-1;//进位 Result:= tmpCurr/IntPower(10,Digits);//小数点回移 end;