Vlisp 有关日期的获取 求助！
请问怎么用lisp语句，获取当前日期，格式XXXX年XX月XX日。例如（setq date0（.......））
得到 date0 为XXXX年XX月XX日
恳求各位大侠帮帮忙！ i.e.
(menucmd "M=$(edtime,$(getvar,date),YYYY.MM.DD hh:mm:ss)")
more info:
http://www.google.com/search?lr=&as_qdr=all&biw=1016&bih=590&q=Date++%22menucmd+%22M%3D%24%22+site%3Ahttp%3A%2F%2Fbbs.mjtd.com (fix (getvar "CDATE"))可以得到20130402这样一个整数，你根据自己需要的日期格式处理成字符串就行了。 vormittag 发表于 2013-4-2 12:50 static/image/common/back.gif
(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日
页:
[1]