Excel - Macro para obtener Iniciales y Edad

=IZQUIERDA(A1;1) & IZQUIERDA(B1;1)

=ENTERO((HOY()-C1)/365.25)

=ENTERO((HOY()-C1)/365,25)

Public Function Edad(ByVal FechaNacimiento As Date) As Integer

    Dim d As Date

    'Edad coincidira con el valor esperado si ya ha cumplido años este año

    Edad = DatePart("yyyy", Date) - DatePart("yyyy", FechaNacimiento)

    d = DateSerial(DatePart("yyyy", Date), DatePart("m", FechaNacimiento), DatePart("d", FechaNacimiento))

    If d > Date Then

        'No ha cumplido años este año, tiene un año menos

        Edad = Edad - 1

    End If

End Function

==ENTERO( ( HOY() - C1 + 1 ) / 365,25 )

=ENTERO( ( HOY() - C1 + 1 ) / 365,25 )

=ENTERO( ( HOY() - C1 ) / 365,25 + 1 )

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

=AÑO(Hoy())-AÑO(C2) - SI((MES(Hoy())*100)+DIA(Hoy()) < (MES(C2)*100)+DIA(C2);1;0)