1) crie um campo data e um botao para executar.
2) no codigo do botão coloque a seguinte rotina.
xidade is string // criei uma variavel para guardar os calculos
xidade = Age(datanascimento..Value, DateSys) // calculando...
Info("Idade : "+Middle(xidade, 3, 2)+" anos "+Middle(xidade, 5, 2)+ ...
" meses "+Middle(xidade, 7, 2)+" dias")// o comando info mostra na tela.. facil facil
Nenhum comentário:
Postar um comentário