Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

En Excel, la fecha anterior a 1 / 1 / 1900 no puede ingresarse y calcularse correctamente. Si desea calcular la edad de una persona que nació y murió antes de 1 / 1 / 1900, no obtendría el cálculo correcto en Excel en general. Pero aquí en este artículo, un truco puede ayudarlo a calcular la edad antes de 1 / 1 / 1900 en Excel.

Calcule la edad antes de 1 / 1 / 1900 con VBA

Calcule la edad por cumpleaños con Kutools para Excel buena idea3


Calcule la edad según el cumpleaños

Aquí tiene una lista de cumpleaños, por ejemplo, y ¿alguna vez ha tratado de calcular la edad en función de su cumpleaños? Kutools for Excel's Calcule la edad según el cumpleaños puedo hacerte un buen favor.
doc calcule la edad
Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Calcule la edad antes de 1 / 1 / 1900 con VBA


Aquí hay un código de VBA que puede ayudarlo a calcular rápidamente la antigüedad antes de 1 / 1 / 1900.

Kutools for Excel, con más de 120 prácticas funciones de Excel, mejore su eficiencia de trabajo y ahorre tiempo de trabajo.

1. Seleccione una celda en blanco e ingrese el cumpleaños de la persona, y luego seleccione otra celda para ingresar la fecha de hoy, o la fecha de la persona que falle según lo necesite. Ver captura de pantalla:
doc calcule la edad antes de 1900 1

2. Entonces presione Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.

3. Hacer clic recuadro > Módulo, pegue debajo de VBA a la nueva Módulo ventana.

VBA: calcule la edad antes de 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. Seleccione una celda en blanco, aquí está C2 e ingrese esta fórmula = AgeFunc (A2, B2) (A2 es el cumpleaños, y B2 es la fecha de finalización), y presione entrar clave para obtener la edad, y arrastre el comando de autocompletar a las celdas que necesita. Ver captura de pantalla:
doc calcule la edad antes de 1900 2

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


flecha azul burbuja derecha Calcule la edad por cumpleaños con Kutools para Excel

Si las fechas de cumpleaños son normalmente después de 1 / 1 / 1900, puede aplicar Kutools for Excel, Calcule la edad según el cumpleaños utilidad, que puede calcular rápidamente la edad por los cumpleaños dados.

Kutools for Excel, con más de 120 prácticas funciones de Excel, mejore su eficiencia de trabajo y ahorre tiempo de trabajo.

después instalación gratuita Kutools para Excel, haz lo siguiente:

1. Seleccione una celda en blanco que desea mostrar la edad, y haga clic Kutools > Fórmulas > Calcule la edad según el cumpleaños. Ver captura de pantalla:
doc calcule la edad antes de 1900 3

2. Entonces en el Formula Helper cuadro de diálogo, seleccione el cumpleaños en el que desea calcular la edad según el Fecha caja de texto. Ver captura de pantalla:
doc calcule la edad antes de 1900 4

3. Hacer clic Ok para aplicar esta fórmula, y ahora puedes ver que se ha demostrado la edad. Y si lo necesita, puede arrastrar el controlador de autocompletar a las celdas que necesitan esta fórmula. Ver captura de pantalla:
doc calcule la edad antes de 1900 5

presta atención1Si está interesado en este complemento, descargar la versión de prueba gratuita de 60-days.

Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.