Skip to main content

¿Cómo calcular la edad antes del 1/1/1900 en Excel?

Author: Sun Last Modified: 2025-06-04

En Excel, no se puede ingresar ni calcular correctamente una fecha anterior al 1/1/1900. Si deseas calcular la edad de una persona que nació y falleció antes del 1/1/1900, generalmente no obtendrás un cálculo correcto en Excel. Sin embargo, en este artículo, hay un truco que te ayudará a calcular la edad antes del 1/1/1900 en Excel.

Calcular la edad antes del 1/1/1900 con VBA

Calcular la edad por cumpleaños con Kutools para Excel good idea3


arrow blue right bubble Calcular la edad antes del 1/1/1900 con VBA

Aquí hay un código VBA que te puede ayudar a calcular rápidamente la edad antes del 1/1/1900.

1. Selecciona una celda en blanco e introduce el cumpleaños de la persona, luego selecciona otra celda para introducir la fecha actual o la fecha de defunción según sea necesario. Ver captura de pantalla:
sample data

2. Luego presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, pega el siguiente código VBA en la nueva ventana de Módulo.

VBA: Calcular la edad antes del 1/1/1900

Public Function AgeFunc(SDate As Variant, EDate As Variant) As Long
'UpdatebyExtendOffice20160429
    Dim xSMonth As Integer
    Dim xSDay As Integer
    Dim xSYear As Integer
    Dim xEMonth As Integer
    Dim xEDay As Integer
    Dim xEYear As Integer
    Dim xAge As Integer
    If Not GetDate(SDate, xSYear, xSMonth, xSDay) Then
        AgeFunc = "Invalid Date"
        Exit Function
    End If
    If Not GetDate(EDate, xEYear, xEMonth, xEDay) Then
        AgeFunc = "Invalid Date"
        Exit Function
    End If
    xAge = xEYear - xSYear
    If xSMonth > xEMonth Then
        xAge = xAge - 1
    ElseIf xSMonth = xEMonth Then
        If xSDay > xEDay Then xAge = xAge - 1
    End If
    If xAge < 0 Then
        AgeFunc = "Invalid Date"
    Else
        AgeFunc = xAge
    End If
End Function

Private Function GetDate(ByVal DateStr As String, Y As Integer, M As Integer, D As Integer) As Boolean
    Dim I As Long
    Dim K As Long
    Y = 0
    M = 0
    D = 0
    GetDate = True
    On Error Resume Next
    I = InStr(1, DateStr, "/")
    M = CLng(Left(DateStr, I - 1))
    D = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "/") - I - 1))
    Y = CLng(Right(DateStr, Len(DateStr) - InStrRev(DateStr, "/")))
    If M < 1 Or M > 12 Or D < 1 Or D > 31 Or Y < 1 Then
        GetDate = False
    End If
End Function

4. Selecciona una celda en blanco, aquí es C2, e introduce esta fórmula =AgeFunc(A2,B2) (A2 es el cumpleaños, y B2 es la fecha final), y presiona Enter para obtener la edad, y arrastra el controlador de autocompletar sobre las celdas que necesites. Ver captura de pantalla:
apply user defined function to get the result

Nota: Este VBA solo puede calcular edades con fechas en el formato mm/dd/aaaa, como 23/6/1845.


arrow blue right bubble Calcular la edad por cumpleaños con Kutools para Excel

Si las fechas de cumpleaños son normalmente posteriores al 1/1/1900, puedes aplicar la utilidad Date & Time helper de Kutools para Excel, que puede calcular rápidamente la edad a partir de los cumpleaños proporcionados.

Kutools para Excel ofrece más de 300 funciones avanzadas para simplificar tareas complejas, potenciando la creatividad y la eficiencia. Integrado con capacidades de inteligencia artificial, Kutools automatiza las tareas con precisión, haciendo que la gestión de datos sea sencilla. Información detallada de Kutools para Excel...  Prueba gratuita...

Después de instalar gratuitamente Kutools para Excel, por favor haz lo siguiente:

1. Selecciona una celda en blanco donde deseas mostrar la edad, y haz clic en Kutools > Asistente de fórmulas > Date & Time helper. Ver captura de pantalla:
 click Date & Time helper feature of kutools

2. Luego en el Date & Time helper diálogo, marca la opción Edad, selecciona el cumpleaños en el que deseas basar el cálculo de la edad en el cuadro de texto Fecha de Nacimiento Por defecto, la celda será seleccionada como referencia absoluta, puedes cambiarla a referencia relativa, luego marca la opción Hoy y elige el tipo de resultado que deseas mostrar en la lista desplegable de Tipo de resultado de salida. Ver captura de pantalla:
specify options in the dialog box

3. Haz clic en Aceptar para aplicar esta fórmula, y ahora puedes ver que la edad se ha mostrado. Y si es necesario, puedes arrastrar el controlador de autocompletar sobre las celdas que necesiten esta fórmula. Ver captura de pantalla:
the age has been calculated

Las mejores herramientas de productividad para Office

🤖 Kutools AI Aide: Revoluciona el análisis de datos basado en: Ejecución inteligente | Generar código | Crear fórmulas personalizadas | Analizar datos y generar gráficos | Invocar Funciones mejoradas
Funciones populares: Buscar, resaltar o marcar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda por varios criterios | Búsqueda de varios valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Crea rápidamente una lista desplegable | Lista desplegable dependiente | Lista desplegable de selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Alternar el estado de visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de Libro de trabajo y Hoja de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Cifrar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtrar celdas con fuente en negrita/cursiva/tachado...)...
Top15 conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres específicos, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas para combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) | ... y más

Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...


Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo

  • Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
  • ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!