Calcular Tempo entre duas Datas

Caros amigos, estou tentando formular este código para calcular o tempo entre duas datas, só que não está funcionando, e esse tempo só preciso saber ano, por exemplo "3" anos, alguém poderia me ajudar.

Grato

att;

Sidney


Private Sub TempoCidadeAno_BeforeUpdate(Cancel As Integer)

Me.TempoCidadeAno = Date - DataDeChegada

End Sub

Use o DateDiff.

Amigo sou novato, você poderia me ajudar a implementar esta função

Grato

att; Sidney

Private Sub TempoCidadeAno_BeforeUpdate(Cancel As Integer)

Me.TempoCidadeAno = DateDiff("yyyy", Date) - DateDiff("yyyy", DataDeChegada)

End Function

Tentei esta também não funcionou, o que poderia estar errado???

O DateDiff é usado só uma vez. A nomenclatura é:

DateDiff("Unidade", "DataInicial", "DataFinal")

Unidade em "d" ou "m" ou "y" ou "h" ou "n" ou "s"

Se pesquisar na ajuda do próprio VBA do Access por DateDiff terá exemplos.

Me.TempoCidadeAno = DateDiff("yyyy", Date - DataDeChegada)

Pessoal o que poderia está errado neste código, pois o campo TempoCidadeAno não retorna a nenhum resultado, por favor alguem poderia me dá uma luz.

Grato

Ney

Olha a sintaxe do DateDiff que eu passei na mensagem anterior.

Criquio, Beleza?

Eu usei de varias maneiras;

Me.TempoCidadeAno = DateDiff("yyyy", Date - "DataDeChegada")
Me.TempoCidadeAno = DateDiff("yyyy", "Date", "DataDeChegada")

o Inicio da expressão esta correto? pois quero que TempoCidadeAno receba o resultado da função DateDiff.

Grato?

Teste:

Me.TempoCidadeAno = DateDiff("y", Date, DataDeChegada)

Se DataDeChegada for a menor, ou seja, a data passada, tem que trocar de lugar com Date:

Me.TempoCidadeAno = DateDiff("y", DataDeChegada, Date)

Infelizmente não funcionou, estou enviando um arquivo teste, favor de uma verificada porque o campo TempoCidadeAno não retorna a nenhum valor.

Desde de já Grato.

Ney

Olha, seguem algumas observações importantes:

1 - Não precisa desse campo DataAtual nem no formulário e muito menos na tabela.

2 - Os campos TempoCidadeAno e TempoCidadeMes não devem estar vinculados à tabela e nem precisa deles na tabela. Esses dados não precisam ficar armazenados em tabela uma vez que você tem a data de chegada já armazenada e para o cálculo usará a data atual.

3 - Para esses cálculos, a tabela só precisa do campo DataDeChegada. Não precisa colocar isso em código, pode colocar direto dentro dos campos:

=DateDiff("y";DataDeChegada;date())
=DateDiff("m";DataDeChegada;date())

4 - Tire a máscara de entrada desses dois campos, pois você quer o número de anos e de meses e não datas, certo?

5 - Pelo mesmo motivo do item 4, retire o Formato de data desses dois campos.

criquio,

Deu certo e muito obrigado pelas orientações,

att;

Sidney

Grato pelo retorno. Só faltou colocar o Resolvido.