Problema de Redondeo de Decimales con una Función

[ContraVeneno]

supongo que "SimpleRoundTo" también serviría. Dependiendo del resultado final que se quiera.

Y no creo que sea dificil de implementar:

Código Delphi [-]
function SimpleRoundTo(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
  LFactor: Double;
begin
  LFactor := IntPower(10, ADigit);
  if AValue < 0 then
    Result := Trunc((AValue / LFactor) - 0.5) * LFactor
  else
    Result := Trunc((AValue / LFactor) + 0.5) * LFactor;
end;