Hola.
Cita:
Empezado por Milworm99
...
Lo que yo quiero es que si el resultado es
7.55 lo redondee a 7.60
|
La función anterior lo hace, solo debes llamarla pasándo el valor 1 al parámetro
Decimal.
Te agrego dos opciones diferentes:
Código Delphi
[-]
uses Math;
function Redondear(const Value: Double; const Digit: Integer): Double;
begin
SetRoundMode(rmUp);
Result := RoundTo(Value, - Digit);
end;
Código Delphi
[-]
function Redondear(const Numero: Double; const Digitos: Integer): Double;
var
m: Double;
begin
m:= Exp(Ln(10) * Digitos);
Result:= Round(Numero * m + 5 / m) / m;
end;
Un ejemplo de uso para ambos casos:
Código Delphi
[-]
...
begin
ShowMessageFmt('%8.2f', [ Redondear(7.55, 1) ]);
Saludos