Visual Basic - Calcular edad

Hola foreros

Estoy elaborando una rutina que me permita calcular la edad segun la fecha de nacimiento.

El tema es que debo calcular la edad para una tabla de personas, por ahora eso. Pero creo que mas adelante debere agruparlos por edad...pero eso lo vemos despues.

He probado lo siguiente:

Year(Date)-Year(FechaNac)
Sirve, pero no es 100% efectivo ya que no tiene en cuenta los meses y dias.

Como puedo solucionar esto.

Saludos
Pedro

La verdad que "TODOS", todititos empezando desde "Nuevo", la tal cecilia colalongo (que es mas ágria que un limón), y siguiendo por todos los participantes, han desvirtuado el propósito del sitio ....

Sugiero .... que pongan un poco mas de cada uno y "aprendan" analizando y pensando acerca de lo que quieren hacer cuando se sientan frente a un PC ...

Hasta NUNCAAAAAAAAAAAAAAAAAAAAAAA

My name is Sabrina man ...

Y yá no respondas mas ....

no sé porque te haces llamar "nuevo" si de eso no tienes nada, aparte tu direccion es falsa mas falsa que un billete de 3 U$S.

bye bye

la pregunta es precisa, precisa fue la rta.

y que te tiras contra la ceci ?
que sabes ?
por ahi es una tipa sana, que labura y al laburo lo dignifica , y no pierde tiempo ensuciando un foro como nosotros, y cuando para de laburar, que se yo, por ahi se mete a un chat xxx ...

pd:
vendo billetes de 3u$ a mitad de precio, hubieranme avisado antes...

Usa la función DateDiff (creo que asi se llama si no búscale)

Dicha función te permite conocer la diferencia entre dos valores tipo DATE, puedes hacer el cálculo en días, meses y años.

Suerte.

Para Silvana..... ojalá dejaras de destilar tu veneno y te dedicaras a ......

Cuál es su problema Srita.....???

Saludos

Colega Pedro:

Tendrias que usar un poco tu materia gris y tener en cuenta los meses y los dias no te parece? Y tambien LEER lo que programas.

salu2

Silvana

Round(DateDiff("m", FechaNac, Now) / 12)

gracias a los que me recomendaron la funcion DateDif, la estoy testeando y viene funcionando OK... :-)

saludos y gracias por el aporte
pedro

Hola foreros

Estuve probando la función DateDiff y encontre que para algunos valores calcula un año de mas.

Ej
'PARA LA DIFERENCIA EN AÑOS
MsgBox DateDiff("yyyy", CDate("26/02/1977"), CDate(Now))

me da 29 años, cuando deberia darme 28

Estuve tratando de resolver el tema, pero no pude...
Alguien pudo encontrarle una mejor forma..

saludos
Pedro

Nuevo, muy buen aporte. Funciona perfecto

Gracias por la ayuda.
saludos

Hay Pedro usa tu materia gris y piensa!

salu2

Silvana

hey porque se dan tanta mala vida es que acaso les de la flojera pensar un poquito aqui tienen una rutina que calcula la edad exacta:

If Month(Date) < Month(Me.text1) Then
Me.Text2 = Year(Date) - Year(Me. text1) - 1
End If

If Month(Date) = Month(Me. text1) And Day(Date) < Day(Me. text1) Then
Me.Text2 = Year(Date) - Year(Me. text1) - 1
End If

If Month(Date) = Month(Me. text1) And Day(Date) >= Day(Me. text1) Then
Me.Text2 = Year(Date) - Year(Me. text1)
End If

If Month(Date) > Month(Me. text1) Then
Me.Text2 = Year(Date) - Year(Me. text1)
End If