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:  Melhor forma de Formatar um campo de data
Postada em 14/7/2007 por Marcelo13      Clique aqui para enviar email para o autor  marcelo-treze@uol.com.br
' depois de muitas dicas que estudei cheguei a esta conclusão
' o código a seguir além de formatar corretamente a data ele
' ainda permite que você digite apenas NUMEROS, e deixa a
' tecla Backspace funcionando normalmente

' Primeiro coloque em um módulo o seguinte código:

Function CampoDATA(obj As Object, Keyasc As Integer)
If Not ((Keyasc >= Asc("0") And Keyasc <= Asc("9")) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(obj.Text) = 2 Or Len(obj.Text) = 5 Then
obj.Text = obj.Text + "/"
obj.SelStart = Len(obj.Text)
End If
End If
End Function


' Para chamar afunção basta você colocar o seguinte código
' no evento KeyPress do seu campo como mostrado abaixo:

Private Sub txtData_KeyPress(KeyAscii As Integer)
'
CampoDATA txtadmissao, KeyAscii
'
End Sub

' espero que eu tenha ajudado os menos experientes como eu.
 


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