Página 1 de 1

Preencher ano de nascimento a partir de cálculo

Enviado: 27 Fev 2019 às 11:14
por Kevts
Em um formulário no VBA fiz a seguinte máscara para adicionar a data de nascimento:
Private Sub txt_DN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
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
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.
Ex: Ao digitar "200360", a máscara retornasse "06/03/1960"

Preencher ano de nascimento a partir de cálculo

Enviado: 02 Mar 2019 às 10:18
por Reinaldo
Não entendi a demanda, bem como o exemplo
...digitar "200360", a máscara retornasse "06/03/1960"...
Qual o criterio/algoritimo para considerar 20 como 06?
Pode dispor seu modelo, e descrever (manualmente) o que tem e o que espera obter?

Re: Preencher ano de nascimento a partir de cálculo

Enviado: 07 Mar 2019 às 10:32
por Kevts
Reinaldo escreveu:Não entendi a demanda, bem como o exemplo
...digitar "200360", a máscara retornasse "06/03/1960"...
Qual o criterio/algoritimo para considerar 20 como 06?
Pode dispor seu modelo, e descrever (manualmente) o que tem e o que espera obter?
Me desculpe, escrita errado. No caso aí seria" 060360".

A ideia é ao digitar os dois últimos dígitos do ano ele já retorne o ano em quatro caracteres.