一个四舍五入函数

下面是保岛国整数的四舍五入函数，假如要保岛国n位小数，只需简单修改。

function myround(x : extended) : extended;

begin

if (int(x)*10+5) > int(x*10) then

begin

result := floor(x);

end else

begin

result := ceil(x);

end;

end;