Berny
23 de Enero del 2003

Hola a todos p/f, quien me ayuda con este problema tengo un txt con una fecha de nacimiento de una persona, en otro txt tomando la fecha del sistema necesito que contenga la edad de la persona. gracias

jos?
23 de Enero del 2003

Yo he calculado eso de la siguiente forma:
Solo un Text en donde se ingresa la fecha de nacimiento y en otra Text se muestra el resultado indicando la edad que esta persona tiene.

Dim FechaNacimiento As Date, Edad As Integer
FechaNacimiento = CDate(TxtFechaNacimiento.Text)
Edad = CInt((Date - FechaNacimiento) / 365)
TxtEdad.Text = Str(Edad) & " Años"