[Resolvido]Acrescentar Anos a uma Data

Tenho uma data de cadastro e preciso atualizar somente o ano para o ano da data atual:
Data_admissao: 08/01/2003
Data_ferias: 08/01/2016
Como posso fazer isso?

Desde já agradeço

Olá, bem-vindo ao fórum.

Teste assim:

DateAdd("yyyy", 1, SeuCampoComData)

Abraço

Infelizmente, assim não atende a minha necessidade, preciso que o sistema pegue o ano atual do computador e atualize a data

Da pra fazer assim:

No seu Campo Data_ferias Coloque:

Na guia Dados, Fonte de Controle coloque:

=Esquerda([Data_Admissao];3) & Meio([Data_Admissao];4;3) & Format(Data();"yyyy")

Data_admissao é onde tem a data de admissao no formato 01/01/2000.

ou no Evento apos atualizar do seu Campo Data Admissão ou de qualquer outro coloque:

Me.Data_ferias = Left([Data_Admissao], 3) & Mid([Data_Admissao], 4, 3) & Format(Date, "yyyy")

É a mesma Formula, porem dessa forma vc pode no campo Data_ferias, colocar na guia dados, Fonte de Controle, colocar ele para armazenas o valor na tabela ...

a titulo de aprendizado:
Também da pra fazer so com o Format:

Me.Data_ferias = Format(Me.Data_Admissao, "dd/mm") & "/" & Format(Date, "yyyy")


Porem So funciona se No campo os dados forem no padrao Data. Se for diferente disso, terá que usar o Esquerda, Direita, Meio... para extrair parte dos Valores do Campo.

Olá a todos.
Boa Fabio, compreendi mal a questão.
Aguardamos retorno do colega.
Abraço

Amigos, funcionou perfeitamente!!!!!

Muito obrigado pela ajuda!

Que bom que deu certo! Bons Estudos!

Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço a todos e bons estudos com o MaximoAccess