Validação de datas no TextBox

2024 - VBA & Macros

Post Recente por JoilsonDO 10 anos atrás

5 Posts

2 Usuários

0 Reactions

1,006 Visualizações

RSS

JoilsonDO

(@joilsondo)

Posts: 47

Eminent Member

Topic starter

Boa tarde.
Gostaria de colocar uma validação em um TextBox, no evento Exit.

Seria assim:
Na Label13, eu tenho a data atual, que é carregada conforme a data do computador.
No Textbox5, eu tenho de preencher a data de emissão da Nf.

Gostaria de colocar uma condição para que, se a data inserida no TexTbox5 for inferior a 30 dias da data atual, aparecesse a msgbox com o alerta.

Por exemplo:
Label13 = 15/07/2014 (data atual)
TextBox5 = 10/06/2014, então deveria aparecer uma mensagem porque a diferença é mais que 30 dias.

Como poderia montar esta validação?

Obrigado.

Postado : 15/07/2014 1:02 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

JoilsonDO,

Boa Tarde!

Veja se é assim.

Validação de Data.zip

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 : 15/07/2014 1:17 pm

JoilsonDO

(@joilsondo)

Posts: 47

Eminent Member

Topic starter

Bom dia Wagner,
Seria pedir muito se você pudesse me enviar o código aqui no forum ao invés do arquivo? Por causa do meu servidor não consigo baixar o arquivo.

Grato.

Postado : 16/07/2014 4:19 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Ok. Pois não.

Segue:

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If CDate(TextBox5.Text) < Date - 30 Then
        MsgBox "A Data de Emissão da NF não pode ser inferior a 30 dias da data Atual!", vbCritical, "ERRO"
        Cancel = True
    End If
End Sub

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 : 16/07/2014 4:30 am