Delphi本身的Format函数四舍五入和财务中四舍五入不一样,所以自己写了一个四舍五入函数,请参考