Como puedo validar
Bueno pude cambiar la fecha en el sistema pero como hago para validar el formato de la fecha ingresada dd/mm/aaaa en el inputbox
Mensaje = "La Fecha de Hoy es " & Now ' Define el mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton1 ' Define los botones.
Título = "Verificar la Fecha" ' Define el título.
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbNo Then ' El usuario eligió el botón No.
dhoy = InputBox("Ingrese la fecha actual con este formato dd/mm/aaaa:", Actualización, Date)
acá no se como hacer la validación de lo ingresado
contador=0
Do While no ingrese formato correcto or contador >3
contador = contador +1
lop
Date = dhoy
Worksheets(1).Calculate
End If
Mensaje = "La Fecha de Hoy es " & Now ' Define el mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton1 ' Define los botones.
Título = "Verificar la Fecha" ' Define el título.
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbNo Then ' El usuario eligió el botón No.
dhoy = InputBox("Ingrese la fecha actual con este formato dd/mm/aaaa:", Actualización, Date)
acá no se como hacer la validación de lo ingresado
contador=0
Do While no ingrese formato correcto or contador >3
contador = contador +1
lop
Date = dhoy
Worksheets(1).Calculate
End If
1 Respuesta
Respuesta de newmodel
1
La posible solución a tu problema es que el usuario ingrese una fecha valida, para lo cual usaremos "IsDate" la cual verifica que los datos ingresados estén en formato de fecha:
If Respuesta = vbNo Then ' El usuario eligió el botón No.
DHOY = InputBox("Ingrese la fecha actual con este formato dd/mm/aaaa:", Actualización, Date)
If IsDate(DHOY) Then
Date = DHOY
Else
MsgBox "Fecha invàlida, favor de verificar", vbCritical
End If
Worksheets(1).Calculate
End If
Saludos y quedo en espera de tus comentarios al respecto, cualquier cosa no dudes en comentármelo!
If Respuesta = vbNo Then ' El usuario eligió el botón No.
DHOY = InputBox("Ingrese la fecha actual con este formato dd/mm/aaaa:", Actualización, Date)
If IsDate(DHOY) Then
Date = DHOY
Else
MsgBox "Fecha invàlida, favor de verificar", vbCritical
End If
Worksheets(1).Calculate
End If
Saludos y quedo en espera de tus comentarios al respecto, cualquier cosa no dudes en comentármelo!
