|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Solução para Validação de Datas
|
 |
|
|
|
Postada em 14/7/2004 por ixeyc
A solução definitiva para validação de datas em seus programas:
Basta chamar a função informando o objeto:
DataLost(MskData)
Public Function ValidaData(Controle As Control)
Dim Resultado As Integer
Resultado = True
If Len(Controle) <> 0 Then
If Not IsDate(Format(Controle, "dd-MM-yy")) Then
MsgBox "Data inválida", vbCritical, "Data Inválida"
Resultado = False
End If
End If
ValidaData = Resultado
End Function
Public Sub DataLost(Objeto As Object)
Objeto = (Format(Objeto.Text, "dd/mm/yyyy"))
If Not ValidaData(Objeto) Then
Objeto.Text = Format(Now, "dd/mm/yyyy")
Objeto.SelStart = 0
Objeto.SetFocus
Objeto.SelLength = Len(Objeto)
End If
End Sub
|
|
|
|
|
