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

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Formatação de datas numa TextBox simples
Postada em 17/2/2004 por geronimo            
'Formatação de datas numa TextBox simples
'Ao digitar uma data num TextBox esta macro insere automaticamente os separadores, a unica regra é inserir o dia e o mês com 2 dígitos e o ano com 2 ou 4 dígitos.
'Ao digitar o 2º digito do dia ou do mês a barra é adicionada automaticamente.
'Sem validação de digitação

Private Sub Text1_Change()
   'formatar a entrada da data
   'If Len(Text1) = 2 Or Len(Text1) = 5 Then
    '  Text1.Text = Text1.Text & "/"
     ' SendKeys "{End}", True
   'End If
End Sub

'Esta é mais completa, além de inserir os já referidos separadores,
'permite apagar sem que seja preenchido automaticamente as '/'
'e faz também uma verificação dos caracteres permitidos numa data.
Private Sub Text1_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
         Case 8, 48 To 57 ' BackSpace e numericos
               If Len(Text1) = 2 Or Len(Text1) = 5 Then
               Text1.Text = Text1.Text & "/"
               SendKeys "{End}", True
               End If
         Case Else ' o resto é travado
               KeyAscii = 0
   End Select
End Sub
 


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