Saber edad

Bitloco
16 de Abril del 2005
Hola compañ[email protected], quisiera saber como puedo saber los años comparando una fecha introducida en un texbox1/textbox2/textxbox3 con formato 12/1/2005 con la fecha actual .


Gracias

roymx
16 de Abril del 2005
esta funcion la encontre en la red no la he probado.

Necesito una funcion que me entregue la edad exacta de
una persona...PERO en el formato:
Años-meses-dú}s, por ejemplo:25 años 6 meses 3 dú}s


RESPUESTA
=========

Public Function DiferenciaFechas(ByVal dtmFecha1 As Date, ByVal dtmFecha2 As Date) As String
Dim dtmFechaMayor As Date
Dim dtmFechaMenor As Date
Dim intAños As Integer
Dim intMeses As Integer
Dim intDias As Integer

If dtmFecha1 >= dtmFecha2 Then
dtmFechaMayor = dtmFecha1
dtmFechaMenor = dtmFecha2
Else
dtmFechaMayor = dtmFecha2
dtmFechaMenor = dtmFecha1
End If

'Averiguar cuántos años
intAños = DateDiff("yyyy", dtmFechaMenor, dtmFechaMayor)

'Cambiar el año de la fecha menor al mismo que la fecha mayor

dtmFechaMenor = DateSerial(Year(dtmFechaMayor), Month(dtmFechaMenor), Day(dtmFechaMenor))
'Averiguar cuántos meses
intMeses = DateDiff("m", dtmFechaMenor, dtmFechaMayor)

'Cambiar el año y el mes de la fecha menor a los mismos que la fecha mayor
dtmFechaMenor = DateSerial(Year(dtmFechaMayor), Month(dtmFechaMayor), Day(dtmFechaMenor))
'Averiguar cuántos dú}s
intDias = DateDiff("d", dtmFechaMenor, dtmFechaMayor)

DiferenciaFechas = intAños & " Años " & intMeses & " Meses y " & intDias & " Dú}s"
End Function