SoloCodigo

 

No me habeis entendido o yo no me he explicado bien, con lo que me habeis dicho redondeo a la parte entera. Yo lo que quiero es si el valor es 14,3 el redondeo quiero que se haga a 14,5 y si el valor es 14,2 el redondeo sea 14,0. Redondear al decimal mas cercano, no al entero.

Gracias por vuestra respuesta. Un saludo.

Hola amigo....
Creo que te estas ahogando en un vaso de agua

La respuesta ya te la dieron y no te diste cuenta:

Lo que tienes que hacer es lo siguiente (Pseudocodigo), priemero necesita unas variables donde guardar tus valores, para restarlos y sumarlos.
Yo creo que si te servirá

Text1.text= 14.5

......
Dim Var1 As Integer
Var1= val(Text1.text)
c = Round(Var1)
.....

if Text1 > c then
  Var2=Text1-c
else
  Var2=c-Text1
end fi
....

if Var2 <= 0.2 then
    ... No haces nada
Text1=c
end if

if Var2 > .03 and Var2 <7 then
Text1=  Var1 - Var2 +  0.5
end if

if Var2 > .07  then
    ... No haces nada
Text1=c
end if