Código Delphi [-]]resultado := redondeo(importe,2);
]resultado := redondeo(importe,2);
Código Delphi [-] function Redondeo (valor: Double; decimales: integer = 0): Double; var factor: Double; begin factor := IntPower(10,decimales); // if valor > 0 then Result := (trunc((valor*factor)+0.5)) / factor else Result := (trunc((valor*factor)-0.5)) / factor; end;
function Redondeo (valor: Double; decimales: integer = 0): Double; var factor: Double; begin factor := IntPower(10,decimales); // if valor > 0 then Result := (trunc((valor*factor)+0.5)) / factor else Result := (trunc((valor*factor)-0.5)) / factor; end;