LISP中如何限制使用時間.

AMTONNY

说得好,偶顶

lcglcg

说得好

kongel

(defun k_right (/ kongel_code_s yo do yn dn
    date_d_e date_d_1_e date_d_2_e  my_da  )
  (defun k_code_s(/ date_d date_d_1 date_d_2 kongel_code_s )
  (setq kongel_code_s
     (vl-registry-read
     "HKEY_CURRENT_USER\\Software\\kongel"
     "my_code_date_start")
  )

(if (= kongel_code_s nil)
  (progn
    (setq date_d (getvar "cdate"))
    (setq date_d_1 (rtos date_d 2 20))
    (setq date_d_2 (substr date_d_1 5 4))
    (setq kongel_code_s (vl-registry-write     "HKEY_CURRENT_USER\\Software\\kongel"
     "my_code_date_start"   date_d_2 ))
  )
)
)
;********************************
  (k_code_s)
  (setq kongel_code_s
     (vl-registry-read
    "HKEY_CURRENT_USER\\Software\\kongel"
    "my_code_date_start")
  )
  (setq yo (atof (substr kongel_code_s 2 1)))
  (setq do (atof (substr kongel_code_s 3 2)))
  (setq date_d_e (getvar "cdate"))                     ;;;获取当前日期
  (setq date_d_1_e (rtos date_d_e 2 20))
  (setq date_d_2_e (substr date_d_1_e 5 4))
  (setq yn ( atof (substr date_d_2_e 2 1)))
  (setq dn ( atof (substr date_d_2_e 3 2)))
  (setq my_da (- (+ (* 30 yn) dn) (+ (* 30 yo) d0) ) ) ;;;计算时间差  
  (if (> my_da 90)
    (progn
      (alert "\n已到期！请与kongel@qq.com联系!")
      (exit) 
     )

    (setq kongel_code_s kongel_code_s)
  )
) 

这是我写的，不过有问题。还麻烦高手指点一下。

错误: 参数类型错误: numberp: nil

不死猫

kongel发表于2009-1-18 9:21:00这是我写的，不过有问题。还麻烦高手指点一下。错误: 参数类型错误: numberp: nil

楼上太懒了

能写这样的程序却不愿调试“参数类型错误”这样的小问题

lisp爱好者

留个脚印，学习吧

zhixiangong

  (setq my_da (- (+ (* 30 yn) dn) (+ (* 30 yo) d0) ) ) ;;;计算时间差   中“d0”修改为“do”

illcyt

kongel 发表于 2009-1-18 09:21
(defun k_right (/ kongel_code_s yo do yn dn    date_d_e date_d_1_e date_d_2_e  m ...

收藏一下，方便学习，谢谢

寒林清远

学习一下，还用不到