delphi 对金额double类型向上取整,保留小数位
//新保留小数位,只要后面有多余的数据,则进位
function NewRoundTo(value: Double; ws: Integer): Double;
var iLen: Integer;
E: Extended;
begin
iLen:=StrToInt('1'+stringOfChar('0', ws));
E:=StrToFloat(FloatToStr(value));
Result:=Ceil(E * iLen) / iLen;
end;
如:3.085,4.612等取2位小数得到:3.09和4.62