Calcular edad

hola, (...) ?

En un UserForm tengo dos TextBox, TextBox1 y TextBox2:
Lo que quiero es si al insertar la fecha de ncimiento en el TextBox1, me aparezca la edada en el TextBox2.

1) considera que un textbox es [precisamente] *eso*... un cuadro de texto
donde puedes dar entrada a todo tipo de caracteres y...
al *trabajar* con fechas en vba, podrias obtener *resutados* que te confundan

2) podrias comentar cual es en tu configuracion regional el orden de fechas ? [mm/dd/aa, dd/mm/aa, ???]
y como piensas/esperas que el usuario haga la entrada de la fecha de nacimiento [+/- exactamente] ?
y *que/como/...* deseas mostrar la edad en el otro textbox [tambien +/- exactamente] ?

saludos,
hector.

Mi cofiguraciòn regional para la fecha es: dd/mm/aaaa
este serìa un ejemplo de mi propòsito

En el TexBox1 "Digitar 22/09/1965 al presionar enter autmàticamente aparezca
la cantidad de años en el Texbox2, osea 42
Si tu crees si posible darle formato al TexBox1 con las barras / /
Beneco
Salu2...

"Héctor Miguel" escribió:

hola, (...) ?

> En un UserForm tengo dos TextBox, TextBox1 y TextBox2:
> Lo que quiero es si al insertar la fecha de ncimiento en el TextBox1, me aparezca la edada en el TextBox2.

1) considera que un textbox es [precisamente] *eso*... un cuadro de texto
donde puedes dar entrada a todo tipo de caracteres y...
al *trabajar* con fechas en vba, podrias obtener *resutados* que te confundan

2) podrias comentar cual es en tu configuracion regional el orden de fechas ? [mm/dd/aa, dd/mm/aa, ???]
y como piensas/esperas que el usuario haga la entrada de la fecha de nacimiento [+/- exactamente] ?
y *que/como/...* deseas mostrar la edad en el otro textbox [tambien +/- exactamente] ?

saludos,
hector.

hola, (...) ?

Mi cofiguracion regional para la fecha es: dd/mm/aaaa este seria un ejemplo de mi proposito
En el TexBox1 "Digitar 22/09/1965 al presionar enter autmaticamente aparezca la cantidad de a#os en el Texbox2, osea 42
Si tu crees si posible darle formato al TexBox1 con las barras / /

copia/pega las siguientes instrucciones en el modulo de codigo del formulaio:
OJO que no he contemplado la posibilidad de errores en la entrada del textbox1 al pulsar {enter}

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then TextBox2 = DateDiff("yyyy", CLng(CDate(TextBox1)), Date) & " años."
End Sub

en cuanto a mostrar una [como] *mascara de entrada* fija/previa/constante/inamovible/inmutable/...
-> para datos de fecha en un control textbox en formularios de vba...
revisa esta conversacion: -> http://tinyurl.com/ytjbcz

saludos,
hector.

Hector, es exàctamento lo que necesitaba mil gracias por tu valiosa ayuda...
Salu2...

Beneco


"Héctor Miguel" escribió:

hola, (...) ?

> Mi cofiguracion regional para la fecha es: dd/mm/aaaa este seria un ejemplo de mi proposito
> En el TexBox1 "Digitar 22/09/1965 al presionar enter autmaticamente aparezca la cantidad de a#os en el Texbox2, osea 42
> Si tu crees si posible darle formato al TexBox1 con las barras / /

copia/pega las siguientes instrucciones en el modulo de codigo del formulaio:
OJO que no he contemplado la posibilidad de errores en la entrada del textbox1 al pulsar {enter}

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then TextBox2 = DateDiff("yyyy", CLng(CDate(TextBox1)), Date) & " años."
End Sub

en cuanto a mostrar una [como] *mascara de entrada* fija/previa/constante/inamovible/inmutable/...
-> para datos de fecha en un control textbox en formularios de vba...
revisa esta conversacion: -> http://tinyurl.com/ytjbcz

saludos,
hector.