[[Al González]]

Empezado por richy08

[...] buscando por la red, encontre esta funcion [...]

Código Delphi [-]
function RoundTo2dp(Value: Currency): Currency;
begin
  Result := Trunc(Value*100+IfThen(Value>0, 0.5, -0.5))/100;
end;

ya le hice pruebas y al parecer funciona muy bien, ustedes que opinan

Que va acorde con el tipo de redondeo que realizan los motores de bases de datos (al infinito).