小数点后去四位

Question

如何将小数点后去四位
dt1.FieldByName('jfdj').Value:=bennian_jfdj;
如果本年单价bennian_jfdj=10.99989,那么去四位后为10.9998就ok了

Answer 1

var
  D: Double;
begin
  D := 9.998987;
  D := Trunc(D*10000) / 10000;
  Edit1.Text := FloattoStr(D);
end;

Answer 2

四合五入函數,Delphi自帶的Round()只能四舍五入到整數,下面的可以自定義保留小書點位數
Function Roundx(X:real;N:integer):real;
var i: integer;
begin
     if N>0 then
      for i:=0 to N-1 do
       begin
         X:=X*10
       end;
        X:=round(X);
      for i:=0 to N-1 do
        begin
         x:=X/10;
         end;
    result:=X;
end; 
这个是我写的函数。楼主参考一下。

Answer 3

uses Math;RoundTo(Value, -4);