Validar Fecha con 29/02/2XXX

[Silverio]

Buen día compañeros tengo un detalle que no se como hacerle para corregir cuando coloquen la fecha del 29/02/XXXX. Resulta que estoy realizando una macro que me filtre según fecha dada ciertos...

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]

Hola,

El "error" esta en que No Existe el 29/02/2019, en este año febrero no tiene 29 días.

Prueba este código:

Sub Test()
    If IsDate(29 / 2 / 2019) Then
        MsgBox "Si es fecha"...

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í

 

[Silverio]

Buen día señor Leopoldo, he colocado la instrucción que me ha suguerido pero, el error me da justo al colocar la fecha aca:

Entrada:
Fecha_tope = InputBox("Fecha tope para cálculo dd/mm/yyyy"...

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]

Ok,

Creí que podías acomodar el código solo con la recomendación...

Si ves tu código... al inicio poner: Dim Fecha_tope As Date, Fecha_tope como FECHA y es por eso que te salta el error antes...

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]

Con la fecha de hoy no funcionaba:

Sub ValidarFecha_LBV()
Dim Fecha_tope As String
Entrada:
    Fecha_tope = InputBox("Fecha tope para cálculo dd/mm/yyyy", "Cálculos de Bonificación")
    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í

 

[Alfredo Lara]

Saludos a todos, respecto a fechas yo uso un mini calendario en un UserForm, espero te sirva, solo cambia los días festivos de tu país (opcionalmente puedes omitirlos)

 

[Silverio]

Excelente Gracias por su ayuda. Todo funciono perfecto!!!