[Resolvido]Calcular prazo de vencimento considerando data de nascimento/idade

Preciso calcular um prazo de validade de uma CARTEIRINHA considerando a data de nascimento da pessoa, sendo que o prazo de validade é de até 5 anos, más se a pessoa completar 65 anos de idade antes dos 5 anos, o prazo se encerra e o documento perde a validade.
A validade do documento não pode ultrapassar o limite de idade de 65 anos, ou seja, se a pessoa completar 65 anos, por exemplo, em 2014 a validade vence em 2014 exatamente na data de aniversário.
Se a pessoa vai completar 65 anos daqui a 8 anos então o prazo de validade é de 5 anos, considerando-se a data de atualização(Hoje).

Veja este exemplo de formulário de aviso de vencimento:


http://maximoaccess.forumeiros.com/t9454-listview-activex-aplicada-em-formulario-de-aviso-de-registros-vencidos-por-data

Dê uma olhada neste tutorial do Mestre Avelino:

http://www.usandoaccess.com.br/dicas/dica31.asp?id=1#inicio


Cumprimentos.

Lembrando Ervin... A sala de repositório é apenas para a colocação de exemplos prontos. Ao abrir um tópico o faça nas devidas salas.


Tópico movido à sala correta.


Moderação.

Blz o calculo de idade funcionou espetacularmente.

Mas ainda preciso fazer o calculo do vencimento/prazo considerando o resultado idade/mês/dias com base na data atual (hoje).
O vencimento é de até 5 anos, sendo que o prazo máximo deve considerar a idade máxima de 65 anos completos.

Ou seja se a pessoa tem 63 anos então o prazo será de 2 anos (determinar a data exata do vencimento), se a pessoa tem 55 anos o prazo sera de 5 anos (data atual + 5 anos) para determinar a data exata do vencimento).

Anexo o BD dividido, o que preciso e gravar no campo vencimento a data máxima para renovação.

Abrigado pelas dicas e contribuições.

E para pessoas com menos idade?

De alguns exemplos e detalhe o que pretende....

Se possível poste parte do teu BD.

Cumprimentos.

Veja este:

So precisamos definir os prazos de validade segundo a idade..

https://dl.dropbox.com/u/26441349/ErvinCM.rar


Cumprimentosl.

Neste exemplo que te enviei... crie uma consulta em branco e no modo SQL cole:


SELECT tblFuncionários.NomeFuncionário, tblFuncionários.CpDataNasc, CalculaIdade([CpDataNasc]) AS Idade, IIf([Idade]>=60,65-[Idade],'NÃO') AS Diferenca
FROM tblFuncionários
WHERE (((tblFuncionários.CpDataNasc) Is Not Null And (tblFuncionários.CpDataNasc) Between ([tblFuncionários].[CpDataNasc])
Veja que apliquei em um campo não acoplado uma condição:

Diferenca: SeImed([Idade]>=60;65-[Idade];'NÃO')

Se a idade for Maior ou Igual a 60 - exibe a idade -65 que é a idade máxima...

Pode criar outras condições.
Ceio que já podes começar por ai.
Abra e observe.





Cumprimentos.

Veja este.. Creio que seja conforme necessita:


https://dl.dropbox.com/u/26441349/ErvinCM_1.rar


Abra a consulta, verá que tem 3 registros

- Marcos de Tal
Tem 1 anos que emitiu a carteira, porém está vencida pelo critério da Idade

- Jose de Arimateia
A carteira tem 2 anos que emitiu, está válida

- Solange Vieira
A carteira está vencida porque tem 6 anos da emissão.


Cumprimentos.