Separador de miles en visual basic

[juancho24]

Hola Amigos del Foro

otra ves necesito de su ayuda

miren mi consulta es, como hago para que en v¡sual basic 6 un textbox donde se ingresa solamente numeros me aparesca el separador de miles automaticamente.

y lo otro como puedo programar un calendar para que me guarde en un campo en que reciba los 3 datos(dia,mes,año) de base de datos access 2000 con coneccion ADO


bye gracias

saludos

[Insomnia]

Hola

Puedes utilizar la función format para dar formato a los números. Lo puedes incluir en el LostFocus del textbox.

Código:

Text1.Text = Format(Text1.Text, "##,##00.00")

--Saludos--

[juancho24]

Iniciado por Insomnia

Hola

Puedes utilizar la función format para dar formato a los números. Lo puedes incluir en el LostFocus del textbox.

Código:

Text1.Text = Format(Text1.Text, "##,##00.00")

--Saludos--

Gracias Insomnia por responder,
mira no me resulta 100%, yo no quiero k me aparescan decimales, y ademas me desordena los numeros, a que se puede deber
porfavor ayudame

gracias

saludos

[Insomnia]

Hola

Si no quieres decimales solo tienes que eliminar la parte de los 0-s, es decir:

Código:

Text1.Text = Format(Text1.Text, "##,##")

No entiendo a lo que te refieres con me desordena los números, puedes poner un ejemplo de lo que te hace?

--Saludos--

[juancho24]

Iniciado por Insomnia

Hola

Si no quieres decimales solo tienes que eliminar la parte de los 0-s, es decir:

Código:

Text1.Text = Format(Text1.Text, "##,##")

No entiendo a lo que te refieres con me desordena los números, puedes poner un ejemplo de lo que te hace?

--Saludos--

mira al colocar este numero por ejemplo 15791226
me lo muestra de esta forma 61.221.579

no entiendo por k

gracias de nuevo

[Insomnia]

Hola

La verdad es que no se que puede estar ocurriendo, ya que acabo de crear un proyecto con dos textbox, en el evento LostFocus del primero he puesto:

Código:

Text1.Text = Format(Text1.Text, "##,##")

He introducido el número 15791226 y al pasar al textbox2 me lo formatea como 15.791.226

Haz la prueba a crear otro proyecto solo con dos textbox y haz la prueba, sino, pon parte del código que utilizas.

--Saludos--

[juancho24]

Iniciado por Insomnia

Hola

La verdad es que no se que puede estar ocurriendo, ya que acabo de crear un proyecto con dos textbox, en el evento LostFocus del primero he puesto:

Código:

Text1.Text = Format(Text1.Text, "##,##")

He introducido el número 15791226 y al pasar al textbox2 me lo formatea como 15.791.226

Haz la prueba a crear otro proyecto solo con dos textbox y haz la prueba, sino, pon parte del código que utilizas.

--Saludos--

ok, me resulto, lo volvi a hacer y ahora funciona bien el textbox
una consulta mas porfavor, mira tengo un textbox, el cual me muestra la suma total de 4 textbox y quiero que me salga con separador de miles tambien, lo cual no hace, solo me suma hasta el primer punto

aqui esta el codigo que utilizo para hacer la suma:

Private Sub Sumar()

txtActivosProductivos.Text = Val(txtValorAutomoviles.Text) + Val(txtValorMaquinarias.Text) + Val(txtValorMobiliario.Text) + Val(txtValorOtros.Text)

End Sub

Private Sub txtActivosProductivos_LostFocus()

txtActivosProductivos.Text = Format(txtActivosProductivos.Text, "##,##")

End Sub

porfavor ayudame

gracias

saludos

[Insomnia]

Hola

Creo que al pasar el formato texto a número con la función Val, internamente VB transforma los puntos de los miles en comas, es decir, si tienes 1.200 el lo interpreta como 1,2. Para que no ocurra esto tendrías que volver a quitar el formato para sumar. Algo como:

Código:

    Text5.Text = Val(Format(Text1.Text, "##")) + Val(Format(Text2.Text, "##")) + Val(Format(Text3.Text, "##")) + Val(Format(Text4.Text, "##"))
    Text5.Text = Format(Text5.Text, "####,####")

--Saludos--

[juancho24]

Iniciado por Insomnia

Hola

Creo que al pasar el formato texto a número con la función Val, internamente VB transforma los puntos de los miles en comas, es decir, si tienes 1.200 el lo interpreta como 1,2. Para que no ocurra esto tendrías que volver a quitar el formato para sumar. Algo como:

Código:

    Text5.Text = Val(Format(Text1.Text, "##")) + Val(Format(Text2.Text, "##")) + Val(Format(Text3.Text, "##")) + Val(Format(Text4.Text, "##"))
    Text5.Text = Format(Text5.Text, "####,####")

--Saludos--

Ok problema solucionado

Muchas gracias Insomnia por la ayuda

saludos

[leipunk]

Ademas de esta solucion ya expuesta pueden utilizar la funcion que trae el vb 6 que es formatnumber, ejemplo

text1=FormatNumber(text1,0)

el 0 representa a la notacion deseada.