¿Cómo calcular correctamente los años bisiestos en vb?

Función pública ValiText(KeyIn como entero, ValidateString como cadena, editable como booleano) como entero

Dim ValidateList como cadena

Dim KeyOut como entero

Si es editable = Verdadero Entonces

ValidateList = UCase(ValidateString) & Chr(8)

Else

ValidateList = UCase(ValidateString)

Fin Si

Si InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) gt 0 entonces

KeyOut = KeyIn

Else

KeyOut = 0

Bip

Finalizar si

ValiText = KeyOut

Finalizar función

Privado Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = ValiText(KeyAscii, "0123456789", True)

End Sub

ValiText(KeyAscii, aquí está el permitido carácter, True=Compatibilidad con retroceso)

Esto parece complicado, pero en realidad es una función general

Función pública ValiText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer

Esta es la función que copias en tu programa

Luego, en el cuadro de texto necesitas

llamar esto en el evento clave del cuadro de texto donde necesitas limitar la entrada función, esto es

El código de llamada es

KeyAscii = ValiText(KeyAscii, "0123456789", True)

Esta línea

es una función para usar en el cuadro de texto donde necesita limitar la entrada, no una función que necesita copiar en su programa.