[Resolvido]Comparação entre datas

Boa tarde a todos!
Eis o meu problema:

If Me.DiaPag < Me.DataNota Then
Me.Pular = False 'Campo Sim/Não'
Else
If MsgBox("Pular dia ?", vbYesNo,) = vbYes Then
Me.Pular = True
End If
End If

O que acontece: Quando o Campo diaPag é Menor que o DataNota o campo Pular é negativo. Se maior ou igual teria que aparecer a mensagem para escolher Sim ou Não.
Mas isso só acontece quando o campo DiaPag é maior que o DataNota. Quando os campos contém a mesma data não é mostrada mensagem alguma. Alguém poderia por favor me dizer onde está o erro?

Boa tarde,

Código:

   If Me.DiaPag < Me.DataNota Then
        Me.pular = False 'Campo Sim/Não'
    Else
        If MsgBox("Pular dia?", vbQuestion + vbYesNo, "Pular") = vbYes Then
            Me.pular = True
        End If
    End If

Abraço.

Olá Cassio, Boa Tarde.
Agradeço muito a sua atenção.

Quanto ao código o problema persiste, pois quando as datas são iguais não recebo a mensagem se desejo "pular" ou não. Isso somente acontece quando o campo diapag é maior que o datanota.

Olá..

Teste

If Me.DiaPag < Me.DataNota Then
Me.pular = False 'Campo Sim/Não'
ElseIf Me.DiaPag >= Me.DataNota Then
If MsgBox("Pular dia?", vbQuestion + vbYesNo, "Pular") = vbYes Then
Me.pular = True
End If
End If

Abraços

Boa tarde,

Veja o modelo. Preenche os campos da forma dd/MM/YYYY e aperte o botão.

O que acontece agora. No exemplo que você me enviou todas as opções enviam mensagem. O que não deveria. Apenas se fossem maior ou igual a DataNota.

Amigo, você está fazendo algo errado aí. Aqui está funcionando perfeitamente. Teste para a seguinte situação:

DiaPag: 05/05/2018
DataNota: 06/06/2018
Deixe a caixa de seleção MARCADA e aperte o botão. Veja se vai desmarcar sem aviso algum.

Depois mude o DiaPag para 06/06/2018 e aperte o botão.

olá...

Dentro do seu projeto pode haver necessidade de formatar data.
O exemplo do Cassiofabre funciona na perfeição.

Teste formatando as datas

If Format(Me.DiaPag, "mm/dd/yyyy") < Format(Me.DataNota, "mm/dd/yyyy") Then
Me.pular = False 'Campo Sim/Não'
Else
If MsgBox("Pular dia?", vbQuestion + vbYesNo, "Pular") = vbYes Then
Me.pular = True
End If
End If

Abraços

Agora funcionou. Era isso mesmo.

Muito obrigado Cassio e Celso. Me ajudaram muito. Só tenho a agradecer.
Valeu!!!!

Bom dia,

Amigo, o caso da comparação precisar ser formatada significa que estava trabalhando com datas em tabelas (seja diretamente pegando a data da tabela ou através de formulários acoplados). Faltou essa informação na sua pergunta.

Mas que bom que deu certo.

Ok, Cassio.
Informação importante do qual eu não sabia. Muito obrigado mais uma vez. Grande Abraço!!!!

Valeu!!!