altp
23-11-2006, 17:37:40
Buenas tardes foreros.
No se si esta pregunta va bien akí
Les cuento mi problema
Tengo una tabla en Memoria (TRxMemoryData) con varios campos, en concreto 2 de ellos son Debe y Haber (son de tipo TIBBCDField), el caso es que hago lo siguiente:
var
Importe : Extended;
begin
Importe := 0;
while not Rx.Eof do begin
Importe := Importe + Rx.FieldByName('Debe').AsFloat - Rx.FieldByName('Haber').AsFloat;
Rx.Next;
end;
end;
Tengo ese código, para el ejemplo que les pongo el while lo recorre 3 veces:
1ª vuelta --> Debe = 553,11 --> Haber = 0 --> Importe = 553,11
2ª vuelta --> Debe = 0 --> Haber = 36,19 --> Importe = 516,92
3ª vuelta --> Debe = 0 --> Haber = 516,92 --> Importe = 5,6843418861e-14
A qué se debe que no me salga 0?
Les agradecería cualquier ayuda.
Gracias
No se si esta pregunta va bien akí
Les cuento mi problema
Tengo una tabla en Memoria (TRxMemoryData) con varios campos, en concreto 2 de ellos son Debe y Haber (son de tipo TIBBCDField), el caso es que hago lo siguiente:
var
Importe : Extended;
begin
Importe := 0;
while not Rx.Eof do begin
Importe := Importe + Rx.FieldByName('Debe').AsFloat - Rx.FieldByName('Haber').AsFloat;
Rx.Next;
end;
end;
Tengo ese código, para el ejemplo que les pongo el while lo recorre 3 veces:
1ª vuelta --> Debe = 553,11 --> Haber = 0 --> Importe = 553,11
2ª vuelta --> Debe = 0 --> Haber = 36,19 --> Importe = 516,92
3ª vuelta --> Debe = 0 --> Haber = 516,92 --> Importe = 5,6843418861e-14
A qué se debe que no me salga 0?
Les agradecería cualquier ayuda.
Gracias