Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: javierjava en Marzo 09, 2012, 10:43:28 pm

Título: Aproximar Decimales
Publicado por: javierjava en Marzo 09, 2012, 10:43:28 pm
Hola alguien me puede echa una manita de como aproximar decimas, lo estoy haciendo de esta forma pero no lo aproxima
Código: [Seleccionar]
Me.Text1.Text = FormatNumber(Round(Me.Text1.Text), 2)

solo me quitas los decimales y coloca ceros
Gracias espero no molestar a nadie  ;D



Título: Re:Aproximar Decimales
Publicado por: raul338 en Marzo 09, 2012, 10:57:05 pm
No uses Round, porque devuelve un entero, usa todo lo mismo pero sin Round
Título: Re:Aproximar Decimales
Publicado por: raul338 en Marzo 10, 2012, 01:41:58 pm
El usa FormatNumber ya tiene un mismo parametro para redondear ademas de que podes elegir en que formato lo queres :B

Me.Text1.Text = FormatNumber$(Me.Text1.Text, 2) ' Sale "482.156,20"
Título: Re:Aproximar Decimales
Publicado por: javierjava en Marzo 10, 2012, 09:44:12 pm
Muchas gracias por la ayuda me sirvio de mucho Graciaasssssssssss :D
Título: Re:Aproximar Decimales
Publicado por: ssccaann43 en Marzo 12, 2012, 10:53:23 am
El usa FormatNumber ya tiene un mismo parametro para redondear ademas de que podes elegir en que formato lo queres :B

Me.Text1.Text = FormatNumber$(Me.Text1.Text, 2) ' Sale "482.156,20"

Raul, no basta solo con: FormatNumber(Me.Text1.Text, 2) ??

Por que usar el caracter $ ?
Título: Re:Aproximar Decimales
Publicado por: 79137913 en Marzo 12, 2012, 10:59:32 am
HOLA!!!

Raul, no basta solo con: FormatNumber(Me.Text1.Text, 2) ??

Por que usar el caracter $ ?

Es para que la funcion devuelva un string.

GRACIAS POR LEER!!!