AMTONNY
发表于 2008-8-7 21:35:00
<p>说得好,偶顶</p>
lcglcg
发表于 2008-8-29 12:53:00
说得好
kongel
发表于 2009-1-18 09:21:00
<p>(defun k_right (/ kongel_code_s yo do yn dn<br/> date_d_e date_d_1_e date_d_2_e my_da )<br/> (defun k_code_s(/ date_d date_d_1 date_d_2 kongel_code_s )<br/> (setq kongel_code_s<br/> (vl-registry-read<br/> "HKEY_CURRENT_USER\\Software\\kongel"<br/> "my_code_date_start")<br/> )</p><p>(if (= kongel_code_s nil)<br/> (progn<br/> (setq date_d (getvar "cdate"))<br/> (setq date_d_1 (rtos date_d 2 20))<br/> (setq date_d_2 (substr date_d_1 5 4))<br/> (setq kongel_code_s (vl-registry-write "HKEY_CURRENT_USER\\Software\\kongel"<br/> "my_code_date_start" date_d_2 ))<br/> )<br/>) <br/>) <br/>;********************************<br/> (k_code_s)<br/> (setq kongel_code_s<br/> (vl-registry-read<br/> "HKEY_CURRENT_USER\\Software\\kongel"<br/> "my_code_date_start")<br/> )<br/> (setq yo (atof (substr kongel_code_s 2 1)))<br/> (setq do (atof (substr kongel_code_s 3 2)))<br/> (setq date_d_e (getvar "cdate")) ;;;获取当前日期<br/> (setq date_d_1_e (rtos date_d_e 2 20))<br/> (setq date_d_2_e (substr date_d_1_e 5 4))<br/> (setq yn ( atof (substr date_d_2_e 2 1)))<br/> (setq dn ( atof (substr date_d_2_e 3 2)))<br/> (setq my_da (- (+ (* 30 yn) dn) (+ (* 30 yo) d0) ) ) ;;;计算时间差 <br/> (if (> my_da 90)<br/> (progn<br/> (alert "\n已到期！请与<a href="mailto:kongel@qq.com">kongel@qq.com</a>联系!")<br/> (exit) <br/> )</p><p> (setq kongel_code_s kongel_code_s)<br/> )<br/>) </p><p>这是我写的，不过有问题。还麻烦高手指点一下。</p><p>错误: 参数类型错误: numberp: nil</p><p></p><p><br/></p>
不死猫
发表于 2009-1-18 10:15:00
kongel发表于2009-1-18 9:21:00static/image/common/back.gif这是我写的，不过有问题。还麻烦高手指点一下。错误: 参数类型错误: numberp: nil
<p>楼上太懒了</p><p>能写这样的程序却不愿调试“参数类型错误”这样的小问题</p>
lisp爱好者
发表于 2011-7-10 14:41:54
留个脚印，学习吧
zhixiangong
发表于 2011-11-27 09:58:16
(setq my_da (- (+ (* 30 yn) dn) (+ (* 30 yo) d0) ) ) ;;;计算时间差 中“d0”修改为“do”
illcyt
发表于 2013-10-14 23:59:00
kongel 发表于 2009-1-18 09:21 static/image/common/back.gif
(defun k_right (/ kongel_code_s yo do yn dn date_d_e date_d_1_e date_d_2_e m ...
收藏一下，方便学习，谢谢
寒林清远
发表于 2013-10-15 13:40:19
学习一下，还用不到