Code help

[cadd4la]

Hi everyone,

I am in need of code that will limit the time a program will work. For example, have the program check the date each time it runs till it reaches a date that I have entered for the code not to run anymore.

Thanks,

Cadd4la

[irneb]

Assuming you're going to compile the LISP code to a FAS or VLX file you could just add this to the beginning of the LSP:

(setq lastday 20080508.0) ;Change to the date you wanted
(print "Checking date ... ")
(if (> (getvar "CDATE") lastday)
  (progn
    (princ "This program has expired.")
    (quit)
  )
  (progn
    (princ (strcat "You've still got " (itoa (fix (- lastday (getvar "CDATE")))) " day(s) to run this program ... "))
  )
)
(princ "Program loaded.")

;; Continue with the rest of the code

Of course, it won't be very difficult for anyone to change the date on their PC in order to run your code as if it's still a year ago!

[cadd4la]

irneb,

Thanks, thats what I was looking for.

Cadd4la