Função para campos DATA

[Macêdo]

Bom pessoal, implementei a seguinte função para melhorar uma dica postada por mim aqui mesmo nesta seção que mostra como fazer uma mascara de data num textBox, pois colocando esta função num modulo basta chama-la com uma pequena linha de codigo e todos os textbox de um programa, que sejam text de DATA serão formatados com a mascara de DATA e ainda não permitirá digitar letras nos campos DATA e a tecla BackSpace funcionará perfeitamente.

Ponha num módulo

Function DATA(obj As Object, KeyCode As Integer)
If ((KeyCode < 97 And KeyCode > 105) Or KeyCode = 8) Then
KeyCode = 0
Exit Function
End If
If KeyCode <> 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 usa-la em seus campos data chame-a assim: Obs: observem que deve ser usada no evento KeyUp, ou KeyDown, mas acho que fica ainda melhor no KeyUp pois a "/" da data aparecerá logo que o ultimo numero anterior à ela for digitado, e altere o nome da TextBox, no meu caso a text1 seria meu campo data, então poderá ter quantas text's for como campo data que basta chamar a mesma função no evento da text e pronto!

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
DATA Text1, KeyCode
End Sub

Editado Março 18, 2008 por Macêdo