[Resolvido]Mascara de entrada para data

Boa noite

Pesquisei nos foruns e não encontrei...

Gostaria de aprender como entrar com uma data exemplo: 09/06/2022 numa caixa de texto formatada com máscara de entrada de "data abreviada" digitando apenas 09/06/22 e o sistema entender que é 2022, retornando 09/06/2022.

Agradeço a atenção!

Consegui este procedimento do Marcoratti...

Mas não aceita máscara de entrada e tenho que digitar as barras "/" na data...

===============================================================
Private Sub cmdConvertDate_Click()
Dim strYear As String
Dim intSlash As Integer

If IsDate(txtDate) or txtDate = "2/29/00" Then
'procura primeiro separador
intSlash = InStr(txtDate, "/")
If intSlash > 0 Then
'procura segundo separador
intSlash = InStr(intSlash + 1, txtDate, "/")
If intSlash > 0 Then
'Extrai ano da data
strYear = Mid(txtDate, intSlash + 1)
If Len(strYear) = 2 Then
If CInt(strYear) < 50 Then
' Menor que 50: ano = 20XX.
strYear = "20" & strYear
Else
' Maior que 50: ano = 19XX.
strYear = "19" & strYear
End If
End If
MsgBox "Data Informada: " & txtDate
MsgBox "ANO (Sua Regra): " & strYear
MsgBox "ANO (Regra do VB): " & Year(txtDate)
Else
MsgBox "Data no formato não esperado!"
End If
Else
MsgBox "Data no formato não esperado!"
End If
Else
MsgBox "Data inválida !"
End If
' Limpando a data no texto
txtDate.Text = Left(txtDate.Text, intSlash) & strYear
End Sub
========================================================================

Tente assim

Código:

If Screen.ActiveControl.Name = Me!txtData.Name Then
   
    If DataErr = 2279 Then
   
        If Len(Replace(Split(Me!txtData.Text, "/")(2), "_", "")) = 2 Then
           
            Me!txtData.Value = Left(Me!txtData.Text, 6) & 20 & Replace(Split(Me!txtData.Text, "/")(2), "_", "")
            Response = acDataErrContinue
           
        End If
   
    End If
   
End If


Bom dia

Damasceno, obrigado pela atenção...

Sua solução funciona também, mas se estiver definida a máscara de entrada "00/00/0000;0;_" dá erro

Preciso da máscara de entrada, e gostaria de digitar sem as barras...

posso digitar 090622 ou 09062022 que retornará 09/06/2022

pra mim o importante é digitar o ano completo ou abreviado e retornar sempre o completo

obg

Desculpem a ignorância, sou meio novato aqui...

O que eu preciso foi resolvido!

bastou alterar a máscara de entrada de: 00/00/0000;0;_ para 99/99/9999;0;_

O fórum agradece o retorno. Sucesso.