Redondeo

[Casimiro Noteví]

Empezado por Casimiro Notevi

Si quieres redondear, por ejemplo, a 2 decimales:

Código Delphi [-]
]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;

Como dos gotas de agua, "me han copiado"