;; | ----------------------------------------------------------------------------
;; | MI_Expired?
;; | ----------------------------------------------------------------------------
;; | Function : Check if the right to use the program has expired or not?
;; | Auguments: Expiry Date and Production Date in (list dd mm yyyy) format
;; | Return   : T if Current date is outside the Production & Expiry date
;; |            else nil.
;; | Updated  : March 17, 1998
;; | Arguments:
;; |            'EDate' - Expiry Date (overloaded - can also be specified as
;; |                      number of days offset from Production date)
;; |            'PDate' - Production Date)
;; | Comment  : Useful to time-bomb commands and functions.
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_Expired?(EDate PDate / Expired PSum ESum TSum TDate)
(setq Expired nil)
(if (or (equal EDate (list 0 0 0)) (equal PDate (list 0 0 0)))
Expired
(progn
	(setq PSum (MI_SumDay PDate))
	(if (not (listp EDate))
		(setq ESum (+ PSum EDate))
		(setq ESum (MI_SumDay EDate))
	)

	(setq
		TDate (MI_Today)
		TSum (MI_SumDay TDate)
	)
	(if (not (MI_InBetween TSum PSum ESum))
		(setq Expired T)
	)
	Expired
))
)