Calcular edad con una macro

[juan007]

Compañeros(as) antes que todo saludarlos y esperar que esten bien, como siempre estoy dispuesto a recibir cualquier sugerencia o critica.
Les cuento deseo hacer una macro que me me calcule la edad, para ello tengo esto hecho...

Código:

Public Function calcular_edad(ByVal fecha_nacimiento As Date) As Integer
Dim ahora As Date
ahora = Format(Now, "dd/MM/yyyy")
fecha = fecha_nacimiento
edad = DateDiff("yyyy", fecha, ahora)
calcular_edad = edad
End Function

Y la llamo de esta forma la funcion

Código:

Private Sub Worksheet_Activate()
Dim fechaNacimiento
fechaNacimiento = Cells(4, 3)
Cells(4, 5) = calcular_edad(fechaNacimiento)
End Sub

Pero segun esa fecha de nacimiento (25/08/1978) deberia arrojarme la edad de 30 años y me arroja 31 años y nose me ocurre como solucionar esto.

Bueno espero cualquier ayuda o sugerencia desde ya MUCHAS GRACIAS.

Saludos desde CHILE.

[esunestudio]

te lo hace con todas las fechas? siempre sumándote 1 ? de ser así es fácil, restarle 1 año al total

[juan007]

esunestudio claro es facil y practico restar un año ... pero mi idea es hacer que coincida minimo con el mes de cumpleaños .
Ejemplo:

Fecha Nacimiento:20/11/2008

Me arroja que tiene una edad de 1 año, y sabiendo por logica que no lleva ni 5 meses de vida.

Mas que todo hacer la edad exacta a traves de un macro.

Por ejemplo ocupando formulas en el mismo excel yo lo hago asi:

TuceldaDestino=AÑO(HOY())-AÑO(A10)-1 + (MES(HOY())>MES(A10)) + (MES(A10)=MES(HOY()))*(DIA(HOY())>=DIA(A10))

Con esto me funciona impeque....pero nose como llevar eso a una macro.

Bueno gracias nuevamente...seguire intentando.

[David]

Podría ser algo como esto:

Código vb:

Año = DateDiff("yyyy", Fecha1, Fecha2)
If Month(Fecha2) < Month(Fecha1) Or _
        (Month(Fecha2) = Month(Fecha1) And Day(Fecha2) < Day(Fecha1)) Then
    Año = Año - 1
End If
 

[juan007]

David el Grande nuevamente gracias por tu respuesta