[Resolvido]Como verificar se uma data é anterior a exatos 11 meses atrás.

Boa tarde.

Tenho um campo Data do tipo Date/Time em uma Tabela qualquer. Preciso verificar se esta data é anterior a 11 meses atrás do dia de hoje.

Por exemplo: Hoje 05/12/2011 subtrai 11 meses = 05/01/2011.

Abaixo é um exemplo bem simplificado só pra mostrar o objetivo:

Data = 01/01/2011

If Data <= Format(Now(), "dd/mm/yyyy") – (11 meses atrás) then

Msgbox “Data anterior a 11 meses atrás!”

End If

E alem de fazer por código VBA é possivel a mesma verificação por Query?

Agradeço a atenção!
Leonardo.

Dim strmeses as integer

Strmeses = DifData("m", date , me.txtdata)

If strmeses =< 11 then

Msgbox “Data anterior a 11 meses atrás!”

End If

Em uma consulta

Em um campo nao acoplado

ContaMeses: DifData("m";[data1];[data2])

Sendo que naconsulta aparecera a diferenca de meses entre as data, entao pode colocar uma caixa texgo no form e fazer a verificacao desta caixa texto


If me.caixatexto =< 11 then....



Cumprimentos

DifData não é uma função definida!

Meu Access é o 2003.

Difdate... tente por gentileza

Oi meu querido, dei uma pesquisada e encontrei a mesma função mas com outro nome.

Seria DateDiff ao invés de DifDate.

De qualquer forma funcionou perfeitamente! A função conta quantos meses tem entre as duas datas, se é menor que 11.
...

Por consulta eu fiz diferente, subtrai a quantidade de dias equivalente a 11 meses (334 dias), ficou assim:

tipo de consulta - UPDATE

Field: Verificador
Table: Tabela
Update to: IIf([campoData]<=Date()-334;"Menor";"Maior")


Obrigado pela ajuda!

Bom tambem... uma boa soluçāo.

O fórum agradece o retorno.

Bom trabalho. Cumprimentos.