// 無條件進位
function trunc2(num: real; dcml: integer) : real;
var
LFactor: Double;
begin
LFactor := IntPower(10, dcml);
Result := Round((num * LFactor)+ 0.49999) / LFactor ;
end;
- Apr 29 Sun 2012 00:56
-
[delphi] 無條件進位
請先 登入 以發表留言。