[Resolvido]Cálculo idade ano menor 1950 fica negativo

Grandes Mestres

Tenho uma tabela que contém um campo DataNascimento. Baseado nesse campo quero exibir campo XIdade:CalcularIdade(dataNascimentoCli que chama uma função conforme código abaixo.

Public Function CalcularIdade(dataNascimentoCli As Date) As String
Dim anos As Integer
Dim meses As Integer
Dim dias As Integer
Dim hoje As Date

hoje = Date

' Calcular a diferença em anos
anos = DateDiff("yyyy", dataNascimentoCli, hoje)

' Calcular a diferença em meses e dias
Dim dataAniversarioAtual As Date
dataAniversarioAtual = DateSerial(Year(hoje), Month(dataNascimentoCli), Day(dataNascimentoCli))

If hoje < dataAniversarioAtual Then
anos = anos - 1
dataAniversarioAtual = DateSerial(Year(hoje) - 1, Month(dataNascimentoCli), Day(dataNascimentoCli))
End If

meses = DateDiff("m", dataAniversarioAtual, hoje)
dias = hoje - DateAdd("m", meses, dataAniversarioAtual)

' Corrigir para garantir que dias não sejam negativos
If dias < 0 Then
dias = DateDiff("d", dataAniversarioAtual, hoje)
End If

' Se o ano de nascimento for menor que 1950, definir a idade como "Data Inválida"
If Year(dataNascimentoCli) < 1950 Then
CalcularIdade = "Data Inválida"
Else
' Formatando a idade como uma string
CalcularIdade = anos & " anos, " & meses & " meses, " & dias & " dias"
End If
End Function

Aparentemente faz tudo certinho, no entanto se o ano de nascimento for menor que 1950 a idade fica negativa. Onde é a bronca?

Muito grato

UP

Boa noite
Testei com 4-1-1940 e funcionou

Olá Mestre!

Seria a formatação do Windows para dd/mm/aaaa e tabela com dd/mm/aa?

Abraços

Boa tarde
Não sei, mande pequeno exemplo demonstrativo que não funciona

Grande Alexandre!

Muito grato por sua atenção. Segue anexo amostra do problema.

Muito obrigado. Abraços

Não vejo problema
Esqueci-me de dizer que tinha desactivado o resposta de inválida

Código:

Public Function Calcularidade(dataNascimentoCli As Date) As String
    Dim anos As Integer
    Dim meses As Integer
    Dim dias As Integer
    Dim hoje As Date
   
    hoje = Date
   
    ' Calcular a diferença em anos
    anos = DateDiff("yyyy", dataNascimentoCli, hoje)
   
    ' Calcular a diferença em meses e dias
    Dim dataAniversarioAtual As Date
    dataAniversarioAtual = DateSerial(Year(hoje), Month(dataNascimentoCli), Day(dataNascimentoCli))
   
    If hoje < dataAniversarioAtual Then
        anos = anos - 1
        dataAniversarioAtual = DateSerial(Year(hoje) - 1, Month(dataNascimentoCli), Day(dataNascimentoCli))
    End If
   
    meses = DateDiff("m", dataAniversarioAtual, hoje)
    dias = hoje - DateAdd("m", meses, dataAniversarioAtual)
   
    ' Corrigir para garantir que dias não sejam negativos
    If dias < 0 Then
        dias = DateDiff("d", dataAniversarioAtual, hoje)
    End If
   
    ' Se o ano de nascimento for menor que 1950, definir a idade como "Data Inválida"
    'If Year(dataNascimentoCli) < 1950 Then
    '    Calcularidade = "Data Inválida - Idade Negativa"
    'Else
        ' Formatando a idade como uma string
        Calcularidade = anos & " anos, " & meses & " meses, " & dias & " dias"
    'End If
End Function

Mestre!

Sinceramente não entendi o ocorrido. Esse comentário de "Data Inválida" para ano <1950 foi colocado para chamar atenção pelo fato da idade ficar negativa. Quero dizer, estava só substituindo a idade negativa. Você tirou a parte do código e funcionou. Não alterou mais nada? Acredito que não. Fiz o mesmo no meu código e passou a funcionar. Não entendi.
Muito obrigado.
Abraço

Caro Alexandre.

Estive observando aqui os códigos anteriores e encontrei um que já estava funcionando corretamente antes de colocar o "Data Inválida". Misturei as bolas. Desculpas por te ocupar. Havia feito várias tentativas. Uma os meses ficavam negativos, acertei. Depois dias negativos, acertei. Depois os anos... até acertar tudo. Muito grato. Minhas sinceras desculpas.

Abraço

Boa tarde
Erros todos cometem. O importante é não repetir os mesmos erros e errar cada vez menos.
Marque o "Resolvido"
Abraços

Muito obrigado amigos mestres.

Forte abraço

Muito grato