Vlisp 有关日期的获取 求助！

waterkay

请问怎么用lisp语句，获取当前日期，格式XXXX年XX月XX日。
例如（setq date0（.......））
得到 date0 为XXXX年XX月XX日
恳求各位大侠帮帮忙！

Andyhon

i.e.
(menucmd "M=$(edtime,$(getvar,date),YYYY.MM.DD hh:mm:ss)")

more info:
http://www.google.com/search?lr= ... A%2F%2Fbbs.mjtd.com

vormittag

(fix (getvar "CDATE"))可以得到20130402这样一个整数，你根据自己需要的日期格式处理成字符串就行了。

waterkay

vormittag 发表于 2013-4-2 12:50
(fix (getvar "CDATE"))可以得到20130402这样一个整数，你根据自己需要的日期格式处理成字符串就行了。

谢谢大侠！在下写好了！给大家分享分享！

(setq date0(getvar "cdate"))
(setq nian(rtos(/ date0 10000)2 0))
(setq yue(rtos (rem (/ date0 100) 100) 2 0))
(setq ri(rtos (rem date 100) 2 0))
(setq nyr(strcat nian "年" yue "月" ri "日"))

结果nyr输出当日年月日日期如：   2013年4月7日