Calcular Edad

Espero que te sirva mi ejmeplo .)public static int Edad(DateTime
birthdate){ // Calculamos la diferencia de años int years =
DateTime.Now.Year - birthdate.Year; // Restamos un año si estamos antes
de el día de nacimiento en el año actual if (DateTime.Now.Month <
birthdate.Month || (DateTime.Now.Month == birthdate.Month &&
DateTime.Now.Day < birthdate.Day)) years--; return years;}

"JReyes" escribió en el mensaje
news:

Como puedo calcular la edad de una persona de manera que me presente en un
Label el <<Año de la persona, el Mes actual, y el dia >> tengo hecho este
codigo:

Gracias de antemano..

Como puedo utilizarlo en VB2005..




"Angel. E. Ruiz. P" escribió:

Espero que te sirva mi ejmeplo .)public static int Edad(DateTime
birthdate){ // Calculamos la diferencia de años int years =
DateTime.Now.Year - birthdate.Year; // Restamos un año si estamos antes
de el día de nacimiento en el año actual if (DateTime.Now.Month <
birthdate.Month || (DateTime.Now.Month == birthdate.Month &&
DateTime.Now.Day < birthdate.Day)) years--; return years;}

"JReyes" escribió en el mensaje
news:
> Como puedo calcular la edad de una persona de manera que me presente en un
> Label el <<Año de la persona, el Mes actual, y el dia >> tengo hecho este
> codigo:
>
> Gracias de antemano..

Crea la funcion y listo
"JReyes" escribió en el mensaje
news:

Como puedo utilizarlo en VB2005..




"Angel. E. Ruiz. P" escribió:

Espero que te sirva mi ejmeplo .)public static int Edad(DateTime
birthdate){ // Calculamos la diferencia de años int years >> DateTime.Now.Year - birthdate.Year; // Restamos un año si estamos
antes
de el día de nacimiento en el año actual if (DateTime.Now.Month <
birthdate.Month || (DateTime.Now.Month == birthdate.Month &&
DateTime.Now.Day < birthdate.Day)) years--; return years;}

"JReyes" escribió en el mensaje
news:
> Como puedo calcular la edad de una persona de manera que me presente en
> un
> Label el <<Año de la persona, el Mes actual, y el dia >> tengo hecho
> este
> codigo:
>
> Gracias de antemano..

Dame una mano con la ejecucion del codigo ya tengo la funcion hecha en VB
ahora bien como la ejecuto..

DiferenciaFechas()



"Angel. E. Ruiz. P" escribió:

Crea la funcion y listo
"JReyes" escribió en el mensaje
news:
>
> Como puedo utilizarlo en VB2005..
>
>
>
>
> "Angel. E. Ruiz. P" escribió:
>
>> Espero que te sirva mi ejmeplo .)public static int Edad(DateTime
>> birthdate){ // Calculamos la diferencia de años int years > >> DateTime.Now.Year - birthdate.Year; // Restamos un año si estamos
>> antes
>> de el día de nacimiento en el año actual if (DateTime.Now.Month <
>> birthdate.Month || (DateTime.Now.Month == birthdate.Month &&
>> DateTime.Now.Day < birthdate.Day)) years--; return years;}
>>
>> "JReyes" escribió en el mensaje
>> news:
>> > Como puedo calcular la edad de una persona de manera que me presente en
>> > un
>> > Label el <<Año de la persona, el Mes actual, y el dia >> tengo hecho
>> > este
>> > codigo:
>> >
>> > Gracias de antemano..
>>
>>
>>

Traduciendo a VB.NET la función que solía usar en VB 6.0...

Public Function Edad(ByVal fchNacimiento As Date) As Integer
Dim fchHoy As Date = Now
Edad = fchHoy.Year - fchNacimiento.Year
If fchHoy.Month < fchNacimiento.Month Then
Edad = Edad - 1
ElseIf fchHoy.Month = fchNacimiento.Month And fchHoy.Day < fchNacimiento.Day Then
Edad = Edad - 1
End If
End Function

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org