Uma observação quanto ao código de exemplo postado pelo Claudinei, de fato temos a função IsDate aliada ao operador Not, no excel para se verificar Datas válidas, o que diferencia as duas rotinas, é que uma é uma Function para verificar as datas e emitir mensagens de observação, alem de ter sido criada para uso em VB6 que é a linguagem utilizada a algum tempo pelo VBA podendo facilmente ser adaptada para o VBA.
No exemplo postado pelo Alexandre, se a data não for valida, sempre será emitido : "MsgBox "preencha data valida"" ao contrario da Function, e se formos adaptar a instrução de verificação dos meses com o "Not IsDate" para emitir os mesmos tipos de mensagens, iremos ter varias linhas, resumindo, as duas são validas, mas cada uma para executar a função a qual foi determinada.
Uma outra obs, é referente ao Evento, precisamos tomar cuidade quando utilizamos a "Propriedade Cancel", junto com o Evento Exit, pode causar desconforto precisando ser tratado antes de fecharmos o formulário, uma vez que se o TextBox estiver vázio, será consderado como Data Invalida emitindo a mensagem para se dgitar uma data valida.
[]s
Postado : 26/04/2012 5:36 pm