[[escafandra]]

Código Delphi [-]
function RoundQCent(V: Double): Double;
begin
  Result:= (Trunc(V*10)+0.5)/10;
end;

Saludos.