Como redondear a partir del numero 5

[[escafandra]]

Prueba algo como esto:

Código Delphi [-]
function RoundTo(F: single; d: integer): double;
var
  p: double;
begin
  p:= Power(10, d);
  Result:= trunc(F*p+0.5)/p;
end;

Donde F es el valor que quieres redondear y d el decimal donde quieres redondear.

Saludos.