¡Redondear!

[Yashirobai]

Por favor, tengo una caja de texto y en ella me aparecen un número decimal, quisiera que me lo redondeara a 0 decimales, es decir, por ejemplo:

Código:

3,7892739 --> 4
0,2988611 --> 0  

Etc... Es sencillo pero tras darle muchas vueltas a la cabeza no he logrado ver cómo plantearlo (o cómo escribirlo).

Si alguien me puede ayudar diciéndome cómo debo plantear el código o dándome simplemente un posible código se lo agradeceré enormemente. :)

[sitex696]

text1.text = int(text1.text)

esto quita los decimales que haya en el textbox

[mgwebs]

la solucion de sixtex es buena pero no redondea si no que trunca los decimales

mira esta

for i =1 to len(text1.text)
if mid$(text1.text,i,1)="," then
x=mid$(text1.text,i,1)
end if
next
if x<5 then
text1.text = int(text1.text)
else
text1.text=int(text1.text)+1
end if

[Yashirobai]

Muchas gracias a los dos y especialmente a mgwebs , era lo que buscaba.

Un saludo y gracias de nuevo. :roto: