Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Data Inicio > Da...
 
Notifications
Clear all

Data Inicio > DataFim

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
2 Posts
2 Usuários
0 Reactions
1,018 Visualizações
RSS
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Bom dia, pessoal!

Estou com um problema que acredito que seja fácil de resolver porem não consegui!

If txtDataInicio > txtDataFim Or Not IsDate(txtDataInicio) Or txtDataFim < txtDataInicio Or Not IsDate(txtDataFim) Then _
            MsgBox "Data Inicio não deve ser maior que data Fim!"

Não estou conseguindo fazer esta condição funcionar, se coloco 25/05/2018 da inicio ele fica maior que 15/06/2018 data fim,
como resolver, esta questão?

Atenciosamente,
Isabella

 
Postado : 31/05/2018 6:29 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Luk,

Bom dia!

Faça assim:

    If CDate(txtDataInicio) > CDate(txtDataFim) Or Not IsDate(CDate(txtDataInicio)) Or CDate(txtDataFim) < CDate(txtDataInicio) Or Not IsDate(CDate(txtDataFim)) Then  MsgBox "Data Inicio não deve ser maior que data Fim!"

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 31/05/2018 6:55 am
Forum Jump:
  Tópico Anterior
Próximo Tópico