实数四舍五入

这是在CSDN上有人写的一段代码：

 

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;