USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Testar se a data foi digitada corretamente em um TextBox
Postada em 10/2/2003 por Rogério      Clique aqui para enviar email para o autor  rogerio@globo.com
'Verifica se a data inserida dentro de um textbox está correta ou não, se estiver incorreta retorna uma mensagem de erro de data e move o foco para o textbox novamente

'Coloque o código abaixo em um Form com o TextBox

Private Sub Text1_LostFocus()

    If IsDate(Text1.Text) = False And Text1.Text <> Empty Then
        MsgBox ("A Data está Incorreta")
        Text1.SetFocus
    End If

End Sub

'OBS: Pode ser usado também em um MaskEdit
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página