[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

Olá Mestre!

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

Abraços

Grande Alexandre!

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

Muito obrigado. Abraços

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

Muito obrigado amigos mestres.

Forte abraço

Muito grato