Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Verificar datas ent...
 
Notifications
Clear all

Verificar datas entre textbox.

 
2024 - VBA & Macros
Post Recente por Lorenzon 10 anos atrás
3 Posts
2 Usuários
0 Reactions
818 Visualizações
RSS
Lorenzon
 Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Pessoal, bom dia!

Tenho dois textbox's alimentados com datas. Preciso verificar se o mês e ano da data contida no textbox1 é menor que o mês e ano da data contida no textbox2.

Exemplo para ajudar na compreensão:

If mês&ano[textbox1] < mês&ano[textbox2] then

msgbox "A data descrita no textbox2 refere-se a um mês menor!", vbinformation, "Atenção!"

exit sub

end if

 
Postado : 08/12/2014 7:38 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

creio que o comando que vc quer seja este:

If DateSerial(Year(textbox1), Month(textbox1), Day(1)) < DateSerial(Year(textbox2), Month(textbox2), Day(1)) Then

Porém, veja se a tua lógica está correta (creio que vc inverteu alguma coisa ai na msgb (deveria ser textbox1).

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 08/12/2014 7:57 am
Lorenzon
 Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Eu errei mesmo no msg!

Código top o seu, só nao preciso do day!

 
Postado : 08/12/2014 8:55 am
Forum Jump:
  Tópico Anterior
Próximo Tópico