;; | ----------------------------------------------------------------------------
;; | MI_DateFromSumDay
;; | ----------------------------------------------------------------------------
;; | Function : Returns the date list from a SumDay list.
;; | Auguments: 'SumDay'  - An Integer representing the SumDay (i.e days from
;; |                        Year 0)
;; | Return   : An list containing (DD MM YYYY)
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_DateFromSumDay( SumDay / Day Month Year tmp )
(setq
	tmp   SumDay
	Year  (/ tmp 365)
	tmp   (rem tmp 365)
	tmp   (/ tmp 30.42)
	Month (1+ (fix tmp))
	tmp   (- tmp (fix tmp))
	Day   (fix (* tmp 30.42)) 
)
(if (= Day 0) (setq Day 1))
(list Day Month Year)
)