(defun K:GetTime (/ time yr mn dy hr mt sc)
(setq time (rtos (getvar "cdate") 2 20))
(setq yr (substr time 1 4))
(setq mn (substr time 5 2))
(setq dy (substr time 7 2))
(setq hr (substr time 10 2))
(setq mt (substr time 12 2))
(setq sc (substr time 14 2))
(strcat "K-" yr mn dy "-" hr mt sc)
)