valores float en resta no devuelven cero
 

buenas tardes
tal como lo dice el titulo
resto 2 numeros

2710 - 2710 y el resultado en lugar de ser 0 es -2.2737367544e-13

q sucede?
se q he visto la solucion por aqui pero no la encuentro

Quizas estes haciendo algo mal, te tiene que dar cero si restas dos valores iguales.

checa este codigo

Código Delphi [-]
var
   a,b,r:Real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a-b;
Label3.Caption:='Resultado: '+FloatToStr(r);
end;

Salu2 :o

Hola Oscar.

Los números de punto flotante, en cualquier lenguaje de programación, son aproximaciones del valor que representan, por lo tanto las operaciones que hagas con ellos te darán como resultado aproximaciones también.

Para que nosotros podamos entender si hay o no hay un problema en tu aplicación, necesitarías decirnos de qué tipo son esos valores que restas y, sobre todo, qué se pretende hacer con el resultado.

Lo dicho ya muchas veces: en un foro, cuando en la pregunta se explica con detalle lo que acontece y qué se quiere lograr (contexto), las respuestas suelen llegar más rápido y ser más efectivas. ;-)

tienes razon
estoy haciendo esto

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var sqlstr :string;
  _anio, _mes, _libro, _voucher, _CuentaGasto, _t_Analis, _Documento, _Anexo :String;
  _Suma, _pagos :Double;
  excel:Variant;
  fila,columna:Integer;
  Data : TDataSet;
begin
qryData104.Open;
ProgressBar1.Min := 0;
ProgressBar1.Max := qryData104.RecordCount;
while not qryData104.eof do
  begin
    Application.ProcessMessages;
    _pagos := qryData104Importe.AsFloat;
    ProgressBar1.Position := ProgressBar1.Position + 1;
    _t_Analis := '';
    _Anexo := '';

    sqlstr := 'Select * from DetalleCuenta104 where ' +
              'uanio = ' + QuotedStr(qryData104uanio.AsString)  +
              ' and umes = ' + QuotedStr(qryData104umes.AsString)  +
              ' and ulibro = ' + QuotedStr(qryData104ulibro.AsString)  +
              ' and uvoucher = ' + QuotedStr(qryData104uvoucher.AsString)  +
              ' and left(Cuentagasto,2) = ' + QuotedStr( Izquierda (qryData104CuentaGasto.AsString,2)) +
              ' and haber <> 0' +
              ' Order by anio, mes, libro, voucher';
    qryTemporal.SQL.Clear;
    qryTemporal.SQL.Add(sqlstr);
    qryTemporal.Open;
    qryTemporal.First;
    _Anio := qryTemporalanio.AsString;
    _mes := qryTemporalmes.AsString;
    _libro := qryTemporalLibro.AsString;
    _voucher := qryTemporalVoucher.AsString;
    _suma := 0;
    while not qryTemporal.eof do
    begin
      if (_anio = qryTemporalanio.AsString) and
         (_mes = qryTemporalmes.AsString) and
         (_libro = qryTemporalLibro.AsString) and
         (_voucher = qryTemporalVoucher.AsString) then
      begin
        if qryTemporalHaber.AsFloat <> 0 then
        begin
          if Izquierda(qryTemporalCuentaGasto.AsString,2) =  Izquierda(qryData104CuentaGasto.AsString,2) then
          Begin
            _Suma := _Suma + qryTemporalHaber.AsFloat;
            _CuentaGasto := qryTemporalCuentaGasto.AsString;
            _Documento := qryTemporalDocumento.AsString;
          End;
        end;
      end;
      qryTemporal.Next;
    end;
    if (_pagos - _Suma <> 0)  then  // Pagos Solos o incompletos
    Begin
      cdsDiferentes.Append;
      cdsDiferentesCuenta10.Value := qryData104cuenta10.AsString;
      cdsDiferentesuanio.Value :=  qryData104uanio.AsString;
      cdsDiferentesumes.Value := qryData104umes.AsString;
      cdsDiferentesulibro.Value := qryData104ulibro.AsString;
      cdsDiferentesuvoucher.Value := qryData104uvoucher.AsString;
      cdsDiferentesPago.Value := qryData104Importe.AsFloat;
      cdsDiferentesGasto.Value := _Suma;
      cdsDiferentest_analis.Value := _t_Analis;
      cdsDiferentesCuentaGasto.Value := _CuentaGasto;
      cdsDiferentesDocumento.Value := _Documento;
      cdsDiferentesAnexo.Value := _Anexo;
      cdsDiferentes.Post;
    End;
    qryData104.Next;
  end;

lo que esta resaltado
la idea es buscar en una tabla unos vouchers contables y verificar si la suma del haber cuadra con lo que esta en el queryData104

Muchas gracias, Oscar.

Ahora sí puedo darte una de muchas soluciones posibles: Para valores monetarios, es mejor usar variables de tipo Currency (que son de punto fijo) que variables de tipo Double. Además, conviene usar la propiedad AsCurrency en lugar de AsFloat. Con todo esto las operaciones serán precisas.

Nos lo confirmas, por favor. :)

Al.

Si no me equivoco lo que sucede es todas las bases de datos cuando almacena sun valor en un tipo de dato númerico lo guardan en binario, y el caso es que el paso de flotantes en decimal a binario y viceversa no es igual por lo que en algunos casos un número flotante decimal exacto al pasarlo a binario se convierte en periodico puro y por lo tanto el valor con que se guarda en la bd no es el mismo que hemos querido almacenar. Al recuperar el valor nos encontramos con problemas de ese estilo. En mi caso lo que suelo hacer cuando me encuentro con estes problemas es aplicar una función al valor recien recuperado de la bd ajustandolo al número de decimales que necesito realmente, con esto he solucionado mi problema siempre, eso si, hasta ahora no necesitando trabajar con mas de 12 decimales de precision. Otra solución que he utilzado a veces es reducir la unidad de medida con la que trabajo hasta el punto en el que no necesite utilizar decimales.
Trabajando con monedas hay varias soluciones posibles, pero si trabajas con medidas que necesitan realmente ser almacenadas en un tipo de dato que permita un nivel de precisión de muchos decimales me parece lo mejor utiilzar las soluciones que aplico. Si estoy equivocado o alguien utiliza una solución mejor me encantaria conocerlo ya que a este problema me enfrento habitualmente y siempre suelo hacer lo que he explicado.

La solución es simple, lo ha comentado Al González, no usar float ni double, hay que usar currency, para eso sirve.

+1

gracias muchachos... lo habia olvidado