[Resolvido]Comparar Mês/Ano de duas datas

Tentei comparar duas datas com a seguinte expressão no evento antes de atualizar:

If Month(DtAvPrevio) And Year(DtAvPrevio) <> Month(Competencia) And Year(Competencia) Then
MsgBox "Data Incompatível!"
End If

DtAvPrevio = 21/12/2011
Competencia = 01/12/2011

Não funcionou. Apresenta "Data Incompatível!". Mas o mês e o ano são os mesmos.
Onde está o erro?

Não funcionou... Não retornou nenhum resultado.

Tente assim:

If(Month(DtAvPrevio) <> Month(Competencia)) And (Year(DtAvPrevio) <> Year(Competencia)) Then

Boa tarde, rgondim

Poderá ser
If Format(TxtDtAvPrevio,"mm-yyyy") <> Format(TxtCompetencia,"mm-yyyy") Then

Alexandre,
funcionou.
If Format(TxtDtAvPrevio,"mm-yyyy") <> Format(TxtCompetencia,"mm-yyyy") Then

Balem,
também funcionou, mas Or ao invés de And
If(Month(DtAvPrevio) <> Month(Competencia)) Or (Year(DtAvPrevio) <> Year(Competencia)) Then

Valeu.

Gondim
Deveria funcionar com o AND.
Porque está verificando 2 condições simultaneamente.

Mas o código do Alexandre é mais enxuto.


Abraços

Achei estranho funcionar com Or e não And.
Testei várias vezes e sempre dava o resultado correto.
Vou usar a fórmula do Alexandre.

Vamos lá à lição:

A expressão AND significa que a condição se verifica Verdadeira quando ambos (mês e ano) forem diferentes.
Se apenas um deles for diferente, a condição devolve Falso.

Mas queremos que, basta um dos membros ser diferente para condição devolver Verdadeiro (a expressão ser diferente)

Caro Alexandre, agradeço à lição de matemática do Fundamental, elementar...rsrs

Eu não expliquei corretamente: testei muitas vezes com a condição Or e o resultado sempre era o correto para And. Então minha surpresa...
Imagino que é essa uma das situações de "fio entupido".
Por isso, na dúvida, preferi usar sua solução, pois vai que o fio desentope lá na frente...rsrs

Valeu!

Gondim

O Alexandre está corretíssimo

O que eu no caso, esqueci que estamos testando como ele mesmo disse qualquer condição.

Veja, assim está correto:

If(Month(DtAvPrevio) = Month(Competencia)) And (Year(DtAvPrevio) = Year(Competencia)) Then

As duas condições tem que estar verdadeira para retornar verdadeiro o conjunto.

Aqui também está correto:

If(Month(DtAvPrevio) <> Month(Competencia)) Or (Year(DtAvPrevio) <> Year(Competencia)) Then

Só que ao contrário da anterior, se qualquer uma das condições for verdadeira, retornará verdadeiro.
Abraços

Balem, o curioso é que tentei...
If(Month(DtAvPrevio) <> Month(Competencia)) Or (Year(DtAvPrevio) <> Year(Competencia)) Then

e só retorna o resultado verdadeiro se ambas as condições forem verdadeiras (mês e ano das duas datas). Ou seja, está se comportando como se fosse...
If(Month(DtAvPrevio) <> Month(Competencia)) And (Year(DtAvPrevio) <> Year(Competencia)) Then


Mas enfim, não localizei a causa do problema e preferi usar a outra solução.

É verdade, daí fica muito estranho mesmo.

Mas como disse, o código do Alexandre é mais enxuto.

Boa sorte !

Agradeço muito a ajuda de ambos.

Valeu mesmo!