Calculo de edad

Hola resulta que tengo un Text en donde introduzco la fecha de nacimiento y tengo otro text en donde quiero que me aparezca la edad. Como hago para calcular la edad.
Que identifique años bisiestos.
(xxxxxx)

1 respuesta

Respuesta
1
Puedes restar los valores:
m.nDias = Date() - ThisForm.txtFechaNacimiento.Value
También puedes hacer una función, algo similar a:
m.nAños = Year( Date() ) - Year ( fecha_nacimiento )
m.nMeses = Month( Date() ) - Month ( fecha_nacimiento )
m.nDías = Day( Date() ) - Day( fecha_nacimiento )
If m.nDias < 0
     m.nMeses = m.nMeses - 1
     m.nDías = m.nDías + 30
EndIf
If m.nMeses < 0
     m.nAños = m.nAños - 1
     m.nMeses = m.nMeses + 12
EndIf
*!* En la variable m.nAños se encuentran los años transcurridos.
*!* En la variable m.nMeses se encuentran los meses transcurridos
*!* En la variable m.nDias se encuentran los días transcrurridos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas