Simular Máscara entrada de Fechas

Este código lo uso para simular una mascara de entrada para fechas a medida que voy ingresando los números me agrega la barra (/) la propiedad MaxLength debería ser = 10, se puede mejorar validando los datos para días, meses y años.

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Len(Text1) = 2 Then
        Text1 = Text1 & "/"
        Text1.SelStart = Len(Text1)
    ElseIf Len(Text1) = 5 Then
        Text1 = Text1 & "/"
        Text1.SelStart = Len(Text1)
    End If
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s