Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como calcular a idade antes de 1 / 1 / 1900 no Excel?

No Excel, a data antes de 1 / 1 / 1900 não pode ser inserida e calculada corretamente. Se você deseja calcular a idade de uma pessoa que nasceu e morreu antes de 1 / 1 / 1900, isso não obteria o cálculo correto no Excel em geral. Mas aqui neste artigo, um truque pode ajudá-lo a calcular a idade antes de 1 / 1 / 1900 no Excel.

Calcule a idade antes de 1 / 1 / 1900 com VBA

Calcule a idade por aniversário com o Kutools for Excel boa idéia3


Calcule a idade com base no aniversário

Aqui você tem uma lista de aniversário, por exemplo, e você já tentou calcular a idade com base no ano de aniversário? Kutools for Excel's Calcule a idade com base no aniversário pode fazer um bom favor.
doc calcula a idade

arrow blue right bubble Calcule a idade antes de 1 / 1 / 1900 com VBA


Aqui está um código VBA pode ajudá-lo a calcular rapidamente a idade antes de 1 / 1 / 1900.

Kutools for Excel, com mais de 120 Funções úteis do Excel, aprimore sua eficiência operacional e economize seu tempo de trabalho.

1. Selecione uma célula em branco e digite o aniversário da pessoa e, em seguida, selecione outra célula para inserir a data de hoje, ou a data da pessoa morra como você precisa. Ver captura de tela:
doc calcula idade antes de 1900 1

2. Então aperte Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.

3. Clique inserção > Módulo, cole abaixo VBA para o novo Módulo janela.

VBA: Calcule a idade 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. Selecione uma célula em branco, aqui é C2, e digite esta fórmula = AgeFunc (A2, B2) (A2 é o aniversário e o B2 é a data de término) e pressione entrar chave para obter a idade e arraste o identificador de preenchimento automático para as células que você precisa. Ver captura de tela:
doc calcula idade antes de 1900 2

Observação: Este VBA só pode calcular idades com datas no formato de mm / dd / aaaa, como 6 / 23 / 1845.


arrow blue right bubble Calcule a idade por aniversário com o Kutools for Excel

Se as datas de aniversário são normalmente após 1 / 1 / 1900, você pode aplicar Kutools for Excel'S Calcule a idade com base no aniversário utilidade, que pode calcular rapidamente a idade pelos aniversários fornecidos.

Kutools for Excel, com mais de 120 Funções úteis do Excel, aprimore sua eficiência operacional e economize seu tempo de trabalho.

Depois de instalação gratuita Kutools for Excel, faça o seguinte:

1. Selecione uma célula em branco que deseja gerar a idade e clique em Kutools > Fórmulas > Calcule a idade com base no aniversário. Ver captura de tela:
doc calcula idade antes de 1900 3

2. Então, no Fórmula ajudante diálogo, selecione o aniversário em que deseja calcular a idade com base no Data caixa de texto. Ver captura de tela:
doc calcula idade antes de 1900 4

3. Clique Ok para aplicar esta fórmula, e agora você pode ver a idade mostrada. E se você precisar, você pode arrastar o identificador de preenchimento automático para as células necessárias para esta fórmula. Ver captura de tela:
doc calcula idade antes de 1900 5

preste atenção1Se você está interessado neste addi-in, baixe o teste gratuito do 60-days.


Ferramentas de produtividade recomendadas para o Excel

Kutools for Excel ajuda você a concluir o trabalho antes do tempo e se destacar da multidão

  • Mais do que poderosos recursos avançados do 300, projetados para cenários de trabalho 1500, aumentando a produtividade em 70%, você tem mais tempo para cuidar da família e aproveitar a vida.
  • Não precisa mais memorizar fórmulas e códigos VBA, dê um descanso a seu cérebro a partir de agora.
  • Torne-se um especialista em Excel em minutos 3, operações complicadas e repetidas podem ser feitas em segundos,
  • Reduza milhares de operações de teclado e mouse todos os dias, diga adeus às doenças ocupacionais agora.
  • 110,000 pessoas altamente eficazes e escolha de empresas de renome mundial 300 +.
  • 60-day full features versão de avaliação gratuita. Garantias de devolução do dinheiro 60. 2 anos de atualização e suporte gratuitos.

Traz navegação com guias e edição para o Microsoft Office, muito mais poderosa do que as guias do navegador

  • A guia Office foi projetada para Word, Excel, PowerPoint e outros aplicativos do Office: Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
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.