none
MASCARA DE DATA RRS feed

  • Pergunta

  • 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

    sexta-feira, 24 de março de 2017 12:49

Respostas

  • 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.

    sexta-feira, 24 de março de 2017 17:45
    Moderador

Todas as Respostas

  • 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.

    sexta-feira, 24 de março de 2017 17:45
    Moderador
  • 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.

    terça-feira, 28 de março de 2017 12:12
    Moderador