CALCULO IDADE EM TX...
 
Notifications
Clear all

CALCULO IDADE EM TXTBOX

2 Posts
2 Usuários
0 Reactions
1,228 Visualizações
(@keznan)
Posts: 0
New Member
Topic starter
 

Segue abaixo resolução de um problema que tive encontrei aqui mesmo no planilhando e adaptei a minha necessidade, talvez sirva de ajuda a alguem assim como me serviu tambem.
O script abaixo calcula a idade de uma pessoa a partir de uma data digitada no textbox (txtDataNascimento) e printa em outro textbox(txtIdade) e não permite o campo em branco, porem eu nao estou conseguindo que a funcao isdate realmente seja 100% funcional, pois digitando alguns valores como 01/13/1995 o txtbox acata o valor, porem quando uma data do tipo 29/02/1995 ele não permite, alguém sabe como resolver ?

 
Postado : 04/01/2018 5:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O VBA entende, para datas e horas, melhor o padrão americano que e Mes / dia / ano; por essa razão que ao receber a string 01/13/1995 a função isDate considera m/d/ano e aceita/entende/acata como uma data valida.
Já 29/02/1995 não é aceito por não ser uma data existente no calendário;independente do padrão utilizado; (em 1995 fevereiro teve 28 dias) .
uma possibilidade é utilizar assim: Not IsDate(Format(txtDataNascimento, "dd/mm/yyyy")) Then

 
Postado : 04/01/2018 10:08 pm