SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: JohnAlexander en Martes 18 de Septiembre de 2007, 23:35

Título: Aclaración Con Decimales
Publicado por: JohnAlexander en Martes 18 de Septiembre de 2007, 23:35
Cuando capturo un dato numérico en un texbox, el sistema asimila la parte decimal si la escribo con un punto. Ej: 5.10

Pero si escribo el mismo número en un imputbox el sistema reconoce el valor decimal solo si le coloco una coma si le coloco el punto me cambia el valor. Ej:
5.10 me lo asimila como 51, pero si escribo 5,10 si me reconece la parte decimal.

El codigo es el siguiente

            [Dim n

              n=val(txt1.text)

              if  n-int(n) = 0 then
   
                   MsgBox "Entero"

             else

                 msgBox "Número con decimales"

             End If
]

cuando capturo una cantidad numérica con un inputbox me pasa todo lo contrario aplicando el mismo codigo.

gracias en lo que me puedan ayudar.
Título: Re: Aclaración Con Decimales
Publicado por: ElNapster en Martes 18 de Septiembre de 2007, 23:48
Es por tu configuracion reginal , cambiala y BINGO !!!!!!!!!
 :comp:
Título: Re: Aclaración Con Decimales
Publicado por: mjesun en Miércoles 19 de Septiembre de 2007, 17:40
HmmmMMm... yo creo que una solución mas elegante a cambiar la config. regional es obligarle a reconocer un punto en el val.. sea ingles o español, de la siguiente manera:

Código: Text
  1. n = val(replace(Text1.text, ",", "."))
  2.  
Título: Re: Aclaración Con Decimales
Publicado por: Nebire en Jueves 20 de Septiembre de 2007, 18:30
Lo lógico es que el punto se trate como el separador entre cifras enteras y cifras decimales en el entorno de VB, al obtenerse de un string, en cambio una coma se interpreta como un string, ya que en VB es así.

Vete al panel de control, pincha en 'configuración regional..'  pasa a la ficha 'idiomas' y pulsa en 'detalles'..... ahí elimina el teclado inglés y activa el teclado español internacional, dale a aceptar y nuevamente a aceptar... guarda el proyecto y vuelve a abrirlo. Es posible que tuvieras que reiniciar el equipo para que se lleven a efecto los cambios.

No hagas como indica el compañero mjesun, ya que no es el caso sustituir algo por lo que no es.
Título: Re: Aclaración Con Decimales
Publicado por: ElNapster en Jueves 20 de Septiembre de 2007, 18:51
:whistling:

.................................. :lightsabre: