RE:Archivo ejecutable de prueba
Publicado por
juan (1 intervención) el 28/12/2006 20:09:06
Hola.
Si lo vas a usar con una base de datos, generá una tabla nueva que tenga como campo (FechaActual de tipo "Fecha/Hora"), y que lo cargue cuando lo ejecute por primera vez (trata de que sea el mismo día de instalación).
Con esa fecha hace lo siguiente:
Private Sub CompararFechas( )
Dim FechaInicial as Date
Dim FechaFinal as Date
Dim Intervalo as String
Dim CDias as Integer
Intervalo="d" (Actua sobre los dias)
CDias=30
Set Rst = Dbs.OpenRecordSet("Select * from "nombre tabla")
If Rst.RecordCount=0 then
Rst.AddNew
Rst.Fields("FechaActual")=format(Now,"dd/mm/yyyy")
'va a tomar la fecha actual de la maquina.
Rst.Update
else
FechaInicial=Format(Rst.Fields("FechaActual"),"dd/mm/yyyy")
FechaFinal=DateAdd(Intervalo, CDias, FechaInicial)
If FechaFinal <= FechaActual then
Msgbox "mensaje de expiracion"
unload "nombre del formulario inicial"
end if
End if
End Sub
saludos