CRIANDO UMA FUNCAO

USUARIO.EXCLUIDOS 08/08/2007 13:19:45
#230003
Ola pessoal estou procurando uma função que faça o seguinte quando estou digitando num campo text que é uma data ele faça o seguinte digite 2 campos e coloque altomaticamente uma barra e digite outros 2 campos e aparece outra barra simulando uma data no javascript eu sei fazer mais no vb não consegui alguem pode me ajudar? Há tava me esquecendo preciso de uma função para validar data tb no vb
USUARIO.EXCLUIDOS 08/08/2007 13:23:29
#230004
kra usa maskedbox

é bem melhor

se vc num sabe usar me add no msn q eu te explico

ou por aqui mesmo

falo
USUARIO.EXCLUIDOS 08/08/2007 13:38:42
#230006
Copia o codigo abaixo para o evento "Change" da caixa de texto.
Valeu!

**************************

Private Sub Text1_Change()

Select Case Len(Text1.Text)
    
    'adiciona a primeira barra
    Case 2
    Text1.Text = Text1.Text & "/"
    Text1.SelStart = Len(Text1.Text)
    
    'adiciona a segunda barra
    Case 5
    Text1.Text = Text1.Text & "/"
    Text1.SelStart = Len(Text1.Text)
    
End Select

End Sub
USUARIO.EXCLUIDOS 08/08/2007 13:51:30
#230011


Função pra validar datas

Public Function ValidaData(DataInformada As String) As Boolean

    ValidaData = False
    
    If Not IsDate(DataInformada) Then
        Exit Function
    End If
    
    If Left(DataInformada, 2) < "01" Or Left(DataInformada, 2) > "31" Then
        Exit Function
    End If
        
    If Mid(DataInformada, 4, 2) < "01" Or Mid(DataInformada, 4, 2) > "12" Then
        Exit Function
    End If
    ValidaData = True

End Function


Para chamá-la no seu form (lostfocus ou validate da caixa DATA1)

If ValidaData(Data1) = False Then
MsgBox "Data inválida.", vbCritical
Data1.SetFocus
End If


junto com a do TECLA>..resolve seu problema

boa sorte e sucesso
Tópico encerrado , respostas não são mais permitidas
Voltar