[[oscarac]]

respondiendo.....

aqui Uso Access - ADO, el campo es TFloatField y lo que esta mas abajo son las operaciones que hago en el OnCalcFields

Código Delphi [-]
 if qryBalanceComprobacionMensualDEBE.Value > qryBalanceComprobacionMensualHABER.Value then
    qryBalanceComprobacionMensualSD.Value := qryBalanceComprobacionMensualDEBE.Value - qryBalanceComprobacionMensualHABER.Value;
  if qryBalanceComprobacionMensualDEBE.Value < qryBalanceComprobacionMensualHABER.Value then
    qryBalanceComprobacionMensualSA.Value := qryBalanceComprobacionMensualHABER.Value - qryBalanceComprobacionMensualDEBE.Value;
  if Copy(qryBalanceComprobacionMensualcuenta.AsString,1,2) < '60' then
  Begin
    if qryBalanceComprobacionMensualDEBE.Value > qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualID.Value := qryBalanceComprobacionMensualDEBE.Value - qryBalanceComprobacionMensualHABER.Value;
    if qryBalanceComprobacionMensualDEBE.Value < qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualIA.Value := qryBalanceComprobacionMensualHABER.Value - qryBalanceComprobacionMensualDEBE.Value;
  End;
  if Copy(qryBalanceComprobacionMensualcuenta.AsString,1,2) >= '60' then
  Begin
    if qryBalanceComprobacionMensualDEBE.Value > qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualRD.Value := qryBalanceComprobacionMensualDEBE.Value - qryBalanceComprobacionMensualHABER.Value;
    if qryBalanceComprobacionMensualDEBE.Value < qryBalanceComprobacionMensualHABER.Value then
      qryBalanceComprobacionMensualRA.Value := qryBalanceComprobacionMensualHABER.Value - qryBalanceComprobacionMensualDEBE.Value;
  End;

los Campo SD, SA, ID, IA, RD, RA tienen en el Displayformat ,0.00;;#