Pregunta: | 67752 - CADUCIDAD EN UNA MDB |
Autor: | Ivan A |
Hola para todo el mundo, estoy intentando hacer una Demo de mi aplicacion y lo que e conseguido fue lo siguiente: Private Sub Form_Load() Dim licencia As Integer Dim Respuesta As Byte If Me.Fecha_inicio = "" Or IsNull(Me.Fecha_inicio) Then Me.Fecha_inicio = Date ' Ingreso en un campo la primera fecha en que se usa el programa Me.Fecha_X = Me.Fecha_inicio + 30 ' Calculo hasta que fecha deberia ser valido el programa, de esa manera no tengo que poner una fecha fija, va acorde a su primer uso End If licencia = DateDiff("d", Now, Me.Fecha_X) 'cuenta el número de días que hay entre la fecha actual y la del vencimiento de la licencia If Date < Me.Fecha_inicio Then ' Comparo la fecha actual con la del inicio para los espabilados Respuesta = MsgBox(("La fecha del sistema ha sido manipulada, siento decirle esto pero su base de datos a sido eliminada."), vbOKOnly, "ADVERTENCIA") DoCmd.Quit End If ' Le informo al usuario el tiempo que le queda de uso If licencia <= 30 Then Respuesta = MsgBox(("La aplicacion expirara en : " & licencia & " Días."), vbOKOnly, "ADVERTENCIA") End If ' Le informo al usuario que la demo se acabo y coloco en el campo FIN una nueva fecha If licencia <= 0 Then Respuesta = MsgBox("La aplicacion ha expirado si te gusto ponte en contacto con el Administrador.", vbOKOnly, "ADVERTENCIA") Me.Fecha_fin = Date DoCmd.Quit End If ' De esta manera si el usuario manipula la fecha entre el inicio y el fin con la siguiente intruccion me doy cuenta If Date >= Me.Fecha_inicio And Date <= Me.Fecha_fin Then Respuesta = MsgBox(("La fecha del sistema ha sido manipulada, siento decirle esto pero su base de datos a sido eliminada."), vbOKOnly, "ADVERTENCIA") DoCmd.Quit End If End Sub Bien mi pregunta o problema es que todo lo anterior funciona pero si el usuario no llega hasta el final osea hasta el ultimo dia y manipula la fecha del pc, este va a ser siempre funcional, nunca caducara y no se como hacer para reconocer esto. Si me pueden dar una mano se los agradecere, he visto otros ejemplos pero son un poco sofisticados para mi. |