Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

pedro_mexico

[Resolvido] Calcular idade automaticamente VBA

Recommended Posts

pedro_mexico

boa noite pessoal.

precisava de uma ajuda.

tenho uma textbox(txtdatanascimento) onde coloco a data e queria que a textbox seguinte automaticamente preenchesse com a idade quando saísse da textbox da data de nascimento.

é possível?

e ja agora em relação a datas.

é possível fornecerem um código para determinar diferença de dias, para controle de ferias. onde coloco a data inicial numa textbox noutra a data final e auto preencher a textbox com os dias gozados.

fico a aguardar a vossa ajuda.

obrigado

Share this post


Link to post
Share on other sites
vikcch

Podes usar a função DateDiff

No evento LostFocus da textbox metes:

txtIdade.Text = DateDiff("d",txtDataNascimento.Text, Date) \ 365

Não é totalmente certo porque há anos com 366 dias.... este link mostra como se faz (mas deve haver maneiras mais simples)

Na segunda questão usas a mesma função (DateDiff), o "d" quer dizer que o resultado é em dias...

Share this post


Link to post
Share on other sites
pedro_mexico

Try-Catch User, obrigado, mas nao consigo inserir, não dá nada, mesmo com o codigo do link que enviou

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.