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.