Inserindo Mascaras de data e hora

Postado por Bethoven Marcadores:

Este código faz com que ao ser digitado um valor de hora ou data em um textbox seja inserido automaticamente os ":" em caso de hora ou a "/" em caso de data.

 


Máscara para Hora
TextBox1.MaxLength = 5
If Len(TextBox1) = 2 Then
TextBox1.Text = TextBox1.Text & ":"
SendKeys "{End}", True
End If

 


Máscara para Data
TextBox2.MaxLength = 10
If Len(TextBox2) = 2 Then
TextBox2.Text = TextBox2.Text & "/"
SendKeys "{End}", True
End If
If Len(TextBox2) = 5 Then
TextBox2.Text = TextBox2.Text & "/"
SendKeys "{End}", True
End If

 

Voltar