Foro Excel

Hola amigos,Dentro de un formulario, tengo un label con la fecha del sistema,un textbox,donde se introduce la fecha de nacimiento, y .... quisiera que en otro label,apareciese la edad de la persona en cuestion.
Aparentemente debe ser muy sencillo,pero...cuando me pongo manos a la obra.
NO CONSIGO QUE ME DE EL VALOR ESPERADO.
el codigo usado es :
label7= INT (val( label3) - val(textbox4) / 365,25 )

o sea.... entero ( valor del label3 . "menos" valor del textbox4 ),dividido por 365,25 )
NO SE DONDE PUEDE ESTAR EL ERROR....QUIZA SEA EN EL FORMATO DE FECHA QUE NO SE LO DOY CORRECTAMENTE ¿? ¿como se da este formato.....?
GRACIAS A TODOS POR VUESTRO TIEMPO.
UN SALUDO.
Salvador.

prueba con esto:

me.label7.caption= INT (val( label3.caption) - val(textbox4.value) / 365,25 )

ojalá te sirva

365.25 ahí­ sí­ (ojo con el punto)

Gracias RETA. lo que me propones ya lo habia hecho anteriormente y me sigue dando un valor que no es el adecuado....
Pienso que sera algo que tenga que ver con el formato fecha de los LABEL'S o del TEXTBOX....

Revisa los parentesis es INT((A-B)/C)
Un saludo

Hola Salvador,

Sin revisar si la conversión de valores o si la formula es la adecuada. Pero si analizando el orden en que las operaciones matemáticas son resueltas en Excel creo que te faltan un par de paréntesis.

label7= INT ((val( label3) - val(textbox4)) / 365,25 )

Espero esto ayude.

Saludos

TENEIS RAZON CON EL TEMA DE LOS PARENTESIS....PERO, NI AUN ASI. NO SALE.


GRACIAS

Haber esto, considerando que ya tienes controlado los datos en label3 y textbox4.

Código: Seleccionar todo

label7= INT ((CDate(label3) - CDate(textbox4)) / 365,25 )

Saludos

Hola!
Esto puede ser una ayuda:

Dim Edad As Integer
If IsDate(Me.TextBox1) Then
Edad = DateDiff("yyyy", CDate(Me.TextBox1), Date)
If Month(CDate(Me.TextBox1)) < Month(Date) Then
Edad = Edad - 1
Else
If Day(CDate(Me.TextBox1)) < Day(Date) Then Edad = Edad - 1
End If
Me.Label2 = Edad
End If

Atte.

Gracias Sailepaty,con tu ultimo aporte lo has clavado..... es justo ese el codigo que necesita el dichoso label para funcionar....
Adrian,....tu codigo no lo he probado aun pero estoy seguro de que me aportara algo para aprender.
Gracias de nuevo a todos ( a todos los del foro ).y recibid un saludo
Salvador.

otra forma:

Código: Seleccionar todo

Label7.Caption = DateDiff("yyyy", DateValue(TextBox4), DateValue(Label3))