Ver Mensaje Individual
  #2  
Antiguo 01-12-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola gonza.

No hay ningún problema en operar algebraicamente esos tipos. Para ejemplificarte uso la tabla orders de DBDEMOS.
Donde: ItemsTotal es de tipo Money y EmpNo es de tipo Integer.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Suma,Resta,Producto, Cociente: Double;
begin
  Suma:= Table1.FieldByName('ItemsTotal').AsFloat + Table1.FieldByName('EmpNo').AsFloat;
  Resta:= Table1.FieldByName('ItemsTotal').AsFloat - Table1.FieldByName('EmpNo').AsFloat;
  Producto:= Table1.FieldByName('ItemsTotal').AsFloat * Table1.FieldByName('EmpNo').AsFloat;
  Cociente:= Table1.FieldByName('ItemsTotal').AsFloat / Table1.FieldByName('EmpNo').AsFloat;
  ShowMessage('Suma: '+FloatToStr(Suma)+#10+'Resta: '+FloatToStr(Resta)+#10+
              'Producto: '+FloatToStr(Producto)+#10+'Cociente: '+FloatToSTr(Cociente))
end;

Luego depende de vos el formato con que quieras presentarlos...

Saludos.
Responder Con Cita