MASCARA DE DATA

Question

Bom dia !

Estou com duvida, tem com transformar a mascara de data abaixo de um campo, para uma mascara universal, que eu posso usar em outros campos de data. Ex. tenho uma planilha de controle de exames médicos, são vários exames para cada usuário.

Private Sub cad_dtadmin_Change()

End Sub

Private Sub cad_dtadmin_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

cad_dtadmin.MaxLength = 10 '10/10/2014

 Select Case KeyAscii

      Case 8       'Aceita o BACK SPACE

      Case 13: SendKeys "{TAB}"    'Emula o TAB

      Case 48 To 57

         If cad_dtadmin.SelStart = 2 Then cad_dtadmin.SelText = "/"

         If cad_dtadmin.SelStart = 5 Then cad_dtadmin.SelText = "/"

      Case Else: KeyAscii = 0     'Ignora os outros caracteres

   End Select
End Sub

Answer 1

Boa tarde Paulo,

Obrigado por sua participação no Fórum MSDN.

Você está utilizando o componente MaskedTextBox?

Atenciosamente,

---

Robson William Silva

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 2

Bom dia,

Devido a falta de interação do autor dessa pergunta,

essa thread está sendo fechada. Caso o problema ainda

esteja ocorrendo, favor abrir uma nova thread.

Atenciosamente,

---

Robson William Silva

Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.