Ayuda... se que es facil

beker
17 de Abril del 2006
Hola, he hecho una pequeña aplicacion y necesito que me digais como puedo ponerle una fecha tope a esta, para que llegado ese día deje de funcionar. Muchas gracias por adelantado, se que por aqui sabeis bastante de estos temas. Si me pudierais mandar la respuesta al e-mail os lo agredeceria ([email protected])

Nuker-1
17 de Abril del 2006
Private Sub Form_Load()
Label1.Caption = DatePart(\"d\", Date)
Label2.Caption = DatePart(\"m\", Date)
Label3.Caption = DatePart(\"yyyy\", Date)
If Label1.Caption > 16 And Label2.Caption > 3 And Label3.Caption > 2005 Then
MsgBox (\"Tiempo caducado! Fecha limite 15/04/2006\")
End
End If
End Sub

Suerte :) postie porque taba al pedo necesito que me ayuden!!!

http://www.programacion.com/foros/32/msg/297789/

Enrique Veliz
17 de Abril del 2006
es muy sencillo si tienes una base de datos crea una tabla con el campo fecha inicial y fecha final. Cuando ejecutes el programa por primera vez guarda la fecha del sistema como la fecha inicial y sumale los dias k quieras pra la fecha final pero valida tu programa para que lea el registro y si la fecha del sistema llega a la fecha final le das fin a tu progra. Algo asi...:
dim rs as new Recordset
Dim Final
rs.open "Select * FromTabla",Conexion,Valor1,Valor2
if rs.recordcount=0 then
rs.addnew
rs(0)=date
Final=date+15(Dias sumados)
rs(1)=format(final,"dd/mm/yyyy")
rs.update
else
if date>=rs(1) then
'Si quieres k al llegar la fecha y asi lo cambien por
windows no se ejecute le cambias por <>
msgbox("El tiempo de uso ha caducado")
unload me
end
end if
end if