Comprobar formato de fecha en TextBox

[FGV]

Buenas tardes/días/noches,

Para comprobar si en un TextBox se ha escrito una fecha con el formato requerido (en este caso dd/mm/aaaa), comparto esta solución: para la mayoría será obvia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Otra forma

Private Sub TextBoxFecha_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
válidos = "01234567890/"
If InStr(válidos, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Yo lo hago así:

Private Sub UserForm_Initialize()
    Me.Left = [B1].Left: Me.Top = 220
End Sub
Private Sub TextBoxFecha_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'    If KeyAscii...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Otra forma

Private Sub TextBoxFecha_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
válidos = "01234567890/"
If InStr(válidos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Ya sabía yo que era mejorable... y además aprendiendo modos nuevos de decir las cosas. Genial, gracias amigos, Fernando

[COLOR=rgb(226, 80...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

El problema de usar este código, es que la fecha 7/9/2021 la da como error, cuando es correcta y que la fecha 99/10/2021 da error 13 No coinciden los tipos.

Private...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Sí, pero copia y pega el enlace del administrador, queda mucho mejor. Esta es una fijación que tengo, por varias razones: primero porque esta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

hola, a todos !

hay muchos convencionalismos que tratados "regionalmente" (en excel) suelen presentar imponderables (como el tema de las fechas)
-...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Otra más:

Const AfterDate As Date = "31/12/1999" 'Fecha válida después de
'--
Private Sub TextBoxFecha_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("01234567890/"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sin botón Validar:

Const AfterDate As Date = "31/12/1999" 'Fecha válida después de
'--
Private Sub TextBoxFecha_Change()
TextBoxMsg = "Formato incorrecto"
If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Mira que te gusta complicarte, esto hace lo mismo:

If Not IsDate(TextBoxFecha) Or Not Len(TextBoxFecha) = 10 Then
   MsgBox ("Formato de fecha incorrecto. Formato: dd/mm/aaaa")...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí