Preencher ano de nascimento a partir de cálculo
Enviado: 27 Fev 2019 às 11:14
Em um formulário no VBA fiz a seguinte máscara para adicionar a data de nascimento:
Ex: Ao digitar "200360", a máscara retornasse "06/03/1960"
Private Sub txt_DN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)Para facilitar na hora da digitação eu gostaria que ao digitar apenas os últimos números do ano, automaticamente já colocasse o ano com quatro dígitos.
txt_DN.MaxLength = 10
Select Case KeyAscii
Case 8
Case 13: SendKeys "{TAB}"
Case 48 To 57
If txt_DN.SelStart = 2 Then txt_DN.SelText = "/"
If txt_DN.SelStart = 5 Then txt_DN.SelText = "/"
Case Else: KeyAscii = 0 'Ignora os outros caracteres
End Select
End Sub
Ex: Ao digitar "200360", a máscara retornasse "06/03/1960"