`

Round函数 formatfloat函数

 
阅读更多

在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：

采用的是四舍六入五留双。即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前

面一位是什么，根据奇进偶不进，它总是返回一个偶数值。

round(10.5) 10

round(11.5) 12

formatfloat函数用法：

一、函数参数。formatfloat(Format；Extended):string;overload;Format是表示显示的格式。Extended表示最大范围的浮点数。

二、确定保留的小数位，和逗号显示。

三、科学计算法的使用。

四、#和0的用法区别。

分享到：
| 数据类型
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    delphi7 FormatFloat 四舍五入

    delphi7 FormatFloat 四舍五入时,某些情况下不进一,测试代码如下 procedure TForm1.FormShow(Sender: TObject); var a:double; begin a:=16.685; showmessage(formatfloat('0.00',a)); application.Terminate; ...

    NtoC

    begin s :=FormatFloat(‘0.00‘,n0); L :=Length(s); Z :=n0; For i:= 1 To L-3 do begin Val(Copy(s, L-i-2, 1), n, code); st:=IIf( (n=0) And (Z Or (i=9) Or (i=5) Or (i=1)), ‘‘, Copy(c, n*2+1, 2)) + IIf...

    递归枚举目录下所有文件并显示大小KB/MB/GB自动换算

    result := FormatFloat('#.## GB', bytes / GB) else if bytes > MB then result := FormatFloat('#.## MB', bytes / MB) else if bytes > KB then result := FormatFloat('#.## KB', bytes / KB) else ...

    FastReport 5_2_4 xe7

    - [FS] Improved accuracy of parameter with extended type in the FormatFloat function - Fixed TfrxSubreport's page properties changing after adding of TfrxSubreport - Fixed TeeChart Standart support - ...

    Delphi 判断指定盘符的磁盘大小.rar

    Delphi 判断指定盘符的磁盘大小，delphi7判断磁盘空间大小，是检测程序所在磁盘的容量大小，并不是硬盘容量大小，希望注意哦。...　Edit1.Text := FormatFloat('0.0',Self.GetCurDirSize) 'GB'; 　end;

    Delphi 获取指定分区磁盘总空间（容量）.rar

    Delphi 获取指定磁盘分区（盘符）磁盘容量，或者空间大小，主要是使用DiskSize，把DiskSize获取到的数据进行转换，得出KB或GB，本代码主要是对...　S := FormatFloat('0.0',Ispare); 　Edit1.Text := S SDir; 　end;

    delphi串口读写台达plc

    memo1.Lines.Add('M'+IntToHex(i,4)+'-'+FormatFloat('0000',i)+'-'+Copy(sStr,1,Length(sStr)-2)); End; End; end; procedure TfrmMain.SpeedButton4Click(Sender: TObject); var sStr:String; begin kmtPLC....

    10行代码搞定金额大小写转换

    sNum := FormatFloat(‘0‘,n*100); for i := 1 to Length(sNum) do result := result + cNum[ord(sNum[i])-47] + cNum[26-Length(sNum)+i]; for i:= 0 to 11 do //去掉多余的零 result := StringReplace(result, ...

    大小写金额转换-源码

    //获得两位小数部分 //此处出现舍入异常，即舍入的结果无法预料，多谢 //DFW上的sichuan发现此错误，在此进行修正 //FracPart := Round(Frac(Abs(AValue)) * 100); //修正后的语句 //FracPart := Trunc(Abs(AValue)...

    go浮点数转字符串保留小数点后N位的完美解决方法

    最近在项目中碰到很多次float转string，同时要求保留小数点后几位，...func FormatFloat(num float64, decimal int) string { // 默认乘1 d := float64(1) if decimal > 0 { // 10的N次方 d = math.Pow10(decimal)

Magicbox
Global site tag (gtag.js) - Google Analytics