Anónimo
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.
Que identifique años bisiestos.
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
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.
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.