请问如何实现四不舍而且五入

Question

自己写程序！
function Hand(num:double):double;
var temp:double;
begin
     temp:=num*100;
     if temp=int(num)*100 then
     begin 
           Result:=temp/100;
     end
     else
           Result:=(temp+1)/100;
     end;
end;  

Answer 1

Function GetSomeInt(DecimalNum:Integer;AValue:Real):Integer;
Var
  I,AUnit:Integer;
Begin
  AUnit:=1;
  If DecimalNum>0 Then 
    I:=1 To DecimalNum Do AUnit:=AUnit*10;
  AValue:=AValue*AUnit;
  Result:=Trunc(AValue);
  If Frac(AValue)>0 Then Inc(Result);     
End;

Answer 2

上面的搞错了，试试下面的。
if (Rund(num*100)/100 )>(trunc(num*100)/100) then
  num=Rund(num*100)/100