[Resolvido]Código VBA erra ao calcular faixa etária em que data nascimento inicie em 29-02 de...

Olá Mestres,

adaptei um código encontrado neste fórum para o calculo de faixa etária dos funcionários e deparei-me com algo estranho

ao abrir o relatório que dispõe os funcionários por faixa etária e empresa reparei que quando contem datas de nascimento iniciadas em 29-02, não abre e dá erro

poderão ajudar qual o erro

anexo exemplo para melhor entendimento

meus agradecimentos

José Silva

Olá, boa noite!

Veja se atende...

Bons estudos!

Olá wellingtoneo

pelos vistos esta linha de código não tinha indicação do formato data

If CDate(aniversario & "/" & anoAtual) <= Date Then

Agora assim, funciona

If Format(aniversario & "/" & anoAtual, "dd/mm/yyyy") <= Date Then


Muito Obrigado

Abraço

José Silva

Isso mesmo, se você observar o erro é do tipo de variável incompatível... Logo ele estava comparando tipos diferentes!
Disponha!