delphi 四舍五入含小数点函数

官方Delphi 学习QQ群： 682628230（三千人）

频道

要先 use System.Math; 然後記得輸入的是extended，如果是double的話，小數位數就會有誤差

// MyRound 四捨五入

// input

// amt 金額

// iprecision 小數位數(預設0)

// ouput

// string 文字

Function MyRound(amt:extended ;iPrecision:Integer=0):String;

var

S:String;

i1:Integer;

Begin

S:= ”;

i1:= iPrecision * -1;

S:= FloatToStr(SimpleRoundTo(Amt,i1));

result := s;

End;

推荐分享

图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！

执行时间: 0.034102916717529 seconds