Cita:
Empezado por Delphius
[..]Amigo Casi, tu función me recuerda mucho a SimpleRoundTo.
Código:
function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var LFactor: Double;
begin
LFactor := IntPower(10, ADigit);
Result := Trunc((AValue / LFactor) + 0.5) * LFactor;
end;
|
hasta el nombre de las variables se parecen, esa función la hicimos entre mi compañero y yo, un día en la que estábamos desesperados con los redondeos y dijimos "de hoy no pasa, hacemos una función que redondee de verdad". Y nos salió esa que he puesto.
Seguramente los de delphi se copiaron de nosotros