Visual Basic - Archivo ejecutable de prueba

Life is soft - evento anual de software empresarial
 
Vista:

Archivo ejecutable de prueba

Publicado por adrilara (3 intervenciones) el 27/12/2006 10:05:49
Hola a todos,
estoy intentando crear un programa que sea instalable y que sea una version de prueba de 30 dias.
Cono podria hacerlo, gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar