浮点数相减出问题

bfaomei

i:=0.00;
               m:=0.00;
               n:=0.00;
               s:= FRONT_INDEX_DT.DataSet.FieldByName('PRODS_NO').AsString;
               x:= FRONT_INDEX_DT.DataSet.FieldByName('TEAM_NO').AsString;
               k:= FRONT_INDEX_DT.DataSet.FieldByName('EMP_NO').AsString;  
             lDataSet:=TCloneDataSet.Create(nil);
            try
               lDataSet.CloneCursor(FRONT_INDEX_DT.DataSet,false,true,false);
               lDataSet.DisableControls;
               lDataSet.First;
               while not lDataSet.Eof do
               begin
                 if (lDataSet.FieldByName('PRODS_NO').AsString=s) and (lDataSet.FieldByName('TEAM_NO').AsString=x) then
                   begin
                      i:=i+lDataSet.FieldByName('PLAN_AMT').AsFloat;
                   end;
                 if (lDataSet.FieldByName('TEAM_NO').AsString=x) and (lDataSet.FieldByName('EMP_NO').AsString=k) then
                   begin
                      n:=n+lDataSet.FieldByName('PLAN_AMT').AsFloat;
                   end;
                  lDataSet.Next;
               end;
               lDataSet.EnableControls;
            finally
               lDataSet.Free;
            end;
代码就类似上面截取的部分，监视  i，m的值都很正常，但i-m的时候有时候会出现3.63797880709171E-12这样的值。'PLAN_AMT'在字典和表中都是数字类型，2位小数。用Business.System.Math.SimpleRoundTo（，-2）处理i,m后还是一样出现这样的问题。
这个问题怎么解决？？急

bfaomei

没人看到吗？

atiger

i-m的时候有时候会出现3.63797880709171E-12这样的值
请问，此时 I 和 m 值分别是多少呢？

bfaomei

i和m在监视中的值是相等的。但是I-M在监视中就出现如上的问题。

atiger

请问
1、你是哪个版本
2、直接用代码给 m 和 i 赋值21267，然后相减看看是啥

bfaomei

2800
直接赋值，结果肯定没问题，因为有些数据监视是正常的。
不正常的数据是循环的时候多个小数相加后产生的。

bfaomei

我把i的值减少了0.01  监视到m-i的值为0.0100000000020373 。
字典部分如下图，数据表中也是number(12,2)

atiger

楼主
1楼代码中没有看到给m赋值，就看到给m赋了个初始值0。
另外
楼主这样试试，截取一下m和i的小数位数，例如截取到小数位数4位，然后相减看看，结果再截取两位。