;; | ---------------------------------------------------------------------------
;; | MI_DateString
;; | ---------------------------------------------------------------------------
;; | Function : Returns the Date in the form of a string Jan 1, 1900
;; | Arguments: 'Date' - in the format DD MM YYYY
;; | Returns  : -as above-
;; | Updated  : May 5, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun MI_DateString ( Date / tmp DD MM YYYY )
(setq
	DD (nth 0 Date)
	MM (nth 1 Date)
	YYYY (nth 2 Date)
	MM	(cdr	(assoc MM	(list
								(cons 1  "Jan") (cons 2  "Feb") (cons 3  "Mar")
								(cons 4  "Apr") (cons 5  "May") (cons 6  "Jun")
								(cons 7  "Jul") (cons 8  "Aug") (cons 9  "Sep")
								(cons 10 "Oct") (cons 11 "Nov") (cons 12 "Dec")
							)
				)
		)
	Date (strcat MM " " (itoa DD) "," (itoa YYYY))
)
)