엔지니어 기술블로그

오늘 날자표기

(defun getdate (/ Indt Year Day Today)
(setq Indt (getvar "cdate"))
(setq Year (fix (* Indt 0.0001)))
(setq Indt (- Indt (* 10000.0 (float Year))))
(setq Year (itoa Year) Mnth (fix (* Indt 0.01)))
(cond ((= Mnth 1) (setq Month "Jan"))
        ((= Mnth 2) (setq Month "Feb"))
     ((= Mnth 3) (setq Month "Mar"))
     ((= Mnth 4) (setq Month "Apr"))
     ((= Mnth 5) (setq Month "May"))
     ((= Mnth 6) (setq Month "Jun"))
     ((= Mnth 7) (setq Month "Jul"))
     ((= Mnth 8) (setq Month "Aug"))
     ((= Mnth 9) (setq Month "Sep"))
     ((= Mnth 10) (setq Month "Oct"))
     ((= Mnth 11) (setq Month "Nov"))
     ((= Mnth 12) (setq Month "Dec")))
(setq Day (itoa (fix (- Indt (* 100.0 (float Mnth))))))
(setq Today (strcat Day "-" Month "-" Year)) Today
)