Bom dia!
Pessoal tenho o código abaixo que está em um formulário de input. Ele funciona se a pessoa que digitar não o faça de forma errada, porém o que eu preciso é que se a pessoa digitar a data errada seja informado.
Exemplo: Se a pessoa digitar a data 30/02/20014, tem que ter uma mensagem de erro, pois no mes de fevereiro não tem dia 30.
A informação do textbox será gravada em uma planilha caso a data sejá válida. O textbox está como string
Private Sub TextBox_Aniversario_Change()TextBox_Aniversario.MaxLength = 10
If Len(TextBox_Aniversario) = 2 Or Len(TextBox_Aniversario) = 5 Then
TextBox_Aniversario.Text = TextBox_Aniversario.Text & "/"
SendKeys "{End}", True
End If
End Sub
grato,
