Programar caducacion programa
Muy buenas, quisiera saber si existe alguna manera de que a mi programa, le pueda poner fecha de caducación. Tengo el programa, paquete de instalación, esta todo OK. Si alguien me puede ayudar, le estaré muy agradecido
Saludos Cordiales
Saludos Cordiales
1 respuesta
Respuesta de ifrancoz
1
Hay una forma, claro que es manual, en el programa inicial colocar más o menos lo siguiente :
Wfec = #01/31/2009#
If Date > Wfec Then
MsgBox "El período de demostración ya expiró"
Exit Sub
Else
Wdia = Wfec - Date
MsgBox "Este Sistema se encuentra en demostración " & Chr(10) & Space(20) & "Quedan " & Format(Wdia, "##0") & " dias"
End If
Wfec = #01/31/2009#
If Date > Wfec Then
MsgBox "El período de demostración ya expiró"
Exit Sub
Else
Wdia = Wfec - Date
MsgBox "Este Sistema se encuentra en demostración " & Chr(10) & Space(20) & "Quedan " & Format(Wdia, "##0") & " dias"
End If
