Comparar Data

2024 - VBA & Macros

Post Recente por vonzuben 6 anos atrás

7 Posts

3 Usuários

0 Reactions

2,101 Visualizações

RSS

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Sub Data()

Dim Data As Date

Data = "01/09" & Year(Date)

If Date < Data Then

    MsgBox "A data é menor !"

Else

    MsgBox "A data não é menor !"

End If

End Sub

Como verificar se menor ou não ?
Obrigado !

Postado : 04/08/2018 7:58 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Sub Data()
Dim Data As Date

Data = DateSerial(Year(Date), 6, 1)

If Date < Data Then
    MsgBox "A data é menor !"
Else
    MsgBox "A data não é menor !"
End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 04/08/2018 8:43 am

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Vc só esqueceu da barra entre o mês e o ano:

Data = "01/09/" & Year(Date)

Postado : 04/08/2018 8:51 am

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Reinaldo

O que seria esse 6 ?
Acredito que digitou errado !

Postado : 04/08/2018 9:41 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

.
Seria bom alguém explicar o que esse código faz exatamente (qual a finalidade) para quem consultar o tópico futuramente, por ter o mesmo problema, saber!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 04/08/2018 12:41 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Não digitei errado não; como o colega Edson informou, em seu exemplo faltou uma Barra ("/") depois do mês.
Como o VBA "entende" melhor data no padrão americado (mm/dd/yyyy); "passando" a string data no padrão Brasileiro pode; eventualmente; gerar erro/inversão de dia com o mes; sugeri itilizar o DateSerial.
DateSerial (similar a função data no excel), e requerido Ano/mes/dia; como exemplo forneci a data de 01/06/2018
Copa; a finalidade real não sei, mas a rotina simplesmente compara uma data com a data do dia (Date) informando se é maior ou não.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 04/08/2018 4:29 pm