|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validar Datas
|
 |
|
|
|
Postada em 28/2/2001 por Jayme
jaymekm@osite.com.br
If Not IsDate(minha_data) Or Mid(minha_data, 4, 2) > "12" Then
MsgBox "Favor digitar novamente!, vbCritical, "Data inválida!"
End If
'Estou supondo que a data é informada no formato "dd/mm/yyyy"
A função IsDate() verifica se a data é válida ou não, mas ela considera válidos tanto datas no formato brasileiro como no americano.
'Assim, a data "10/26/2000" seria considerado válido, pois a função avalia-a como "26/Oct/2000". Desta forma, incrementei a condição que testa as posições 4 e 5, para não seja > "12"
Abraços.
|
|
|
|
|
