| Pregunta: | 65966 - BLOQUEO POR FECHA |
| Autor: | Artemi Rosich |
| ¿ Alguien puede decirme que tengo mal en el Código siguiente ? :
'Dim MiFecha As String MiFecha = "29-12-2012" If MiFecha <= Format(Now, "dd-mm-yyyy") Then MsgBox " La fecha de autorización del ejecutable se ha extinguido", 0 + 64, " Atención :" & " " & USUARIO End End If Muchas gracias. | |
| Respuesta: | Carlos Mayorga |
| Lo que tienes malo es el concepto, primero que nada las fechas son enteros y las horas son decimales de esos enteros, asi que es mas facil convertirlos a enteros.
Dim MiFecha As String MiFecha = "20121229" If Cint(MiFecha) <= Cint(Format(Now, "yyyyMMdd")) Then MsgBox " La fecha de autorización del ejecutable se ha extinguido", 0 + 64, " Atención :" & " " & USUARIO End End If | |