LISP计算时间差

yeshuaxing

各位好，请问LISP如何计算时间差，我的日期为字符串，计算两日期间的天数要如何写LISP代码？

Andyhon

Command: (- (distof "20120702") (distof "20120701"))
1.0

Command: (- (atoi "20120702") (atoi "20120701"))
1

nzl1116

2. ;;;返回指定年份的总天数
   
3. (defun dt-dates        (oneyear)
   
4.   (if (numberp oneyear)
   
5.     (if        (= 0 (rem oneyear 4))
   
6.       (if (= 0 (rem oneyear 100))
   
7.         (if (= 0 (rem oneyear 400))
   
8.           366
   
9.           365
   
10.         )
    
11.         366
    
12.       )
    
13.       365
    
14.     )
    
15.   )
    
16. )
    
17. ;;;返回指定年份每个月和对应的天数的关联表
    
18. (defun dt-everyMonth-list (spacYear)
    
19.   (list
    
20.     (cons 1 31)
    
21.     (cons 2
    
22.           (if (= 0 (rem spacYear 4))
    
23.             (if        (= 0 (rem spacYear 100))
    
24.               (if (= 0 (rem spacYear 400))
    
25.                 29
    
26.                 28
    
27.               )
    
28.               29
    
29.             )
    
30.             28
    
31.           )
    
32.     )
    
33.     (cons 3 31)
    
34.     (cons 4 30)
    
35.     (cons 5 31)
    
36.     (cons 6 30)
    
37.     (cons 7 31)
    
38.     (cons 8 31)
    
39.     (cons 9 30)
    
40.     (cons 10 31)
    
41.     (cons 11 30)
    
42.     (cons 12 31)
    
43.   )
    
44. )
    
45. ;;;返回指定日期是当年的第几天
    
46. ;;;spyear  指定年份
    
47. ;;;spmonth 指定月份
    
48. ;;;spdate  指定日期
    
49. (defun dt-nthdate (spyear spmonth spdate / ddList somemon sumdates)
    
50.   (if (and (numberp spyear) (numberp spmonth) (numberp spdate))
    
51.     (progn
    
52.       (setq ddList   (dt-everyMonth-list spyear)
    
53.             somemon  1
    
54.             sumdates 0
    
55.       )
    
56.       (while (< somemon spmonth)
    
57.         (setq sumdates (+ (cdr (assoc somemon ddList)) sumdates)
    
58.               somemon  (1+ somemon)
    
59.         )
    
60.       )
    
61.       (+ sumdates spdate)
    
62.     )
    
63.   )
    
64. )
    
65. ;;;两个日期之间的天数
    
66. (defun dt-dist (mList nList / maxyear minyear maxList minList someyear
    
67.                 sumdate)
    
68.   (if (and (numberp (caddr mList)) (numberp (caddr nList)))
    
69.     (if        (/= (car mList) (car nList))
    
70.       (progn
    
71.         (setq maxyear (max (car mList) (car nList))
    
72.               minyear (min (car mList) (car nList))
    
73.               maxList (assoc maxyear (list mList nList))
    
74.               minList (assoc minyear (list mList nList))
    
75.         )
    
76.         (setq someyear (+ minyear 1)
    
77.               sumdate  0
    
78.         )
    
79.         (while (< someyear maxyear)
    
80.           (setq        sumdate         (+ (dt-dates someyear) sumdate)
    
81.                 someyear (1+ someyear)
    
82.           )
    
83.         )
    
84.         (+ (- (dt-dates minyear)
    
85.               (dt-nthdate minyear (cadr minList) (caddr minList))
    
86.            )
    
87.            sumdate
    
88.            (dt-nthdate maxyear (cadr maxList) (caddr maxList))
    
89.         )
    
90.       )
    
91.       (abs (- (dt-nthdate (car mList) (cadr mList) (caddr mList))
    
92.               (dt-nthdate (car nList) (cadr nList) (caddr nList))
    
93.            )
    
94.       )
    
95.     )
    
96.   )
    
97. )

;;;返回指定年份的总天数<br /> (defun dt-dates        (oneyear)<br />   (if (numberp oneyear)<br />     (if        (= 0 (rem oneyear 4))<br />       (if (= 0 (rem oneyear 100))<br />         (if (= 0 (rem oneyear 400))<br />           366<br />           365<br />         )<br />         366<br />       )<br />       365<br />     )<br />   )<br /> )<br /> ;;;返回指定年份每个月和对应的天数的关联表<br /> (defun dt-everyMonth-list (spacYear)<br />   (list<br />     (cons 1 31)<br />     (cons 2<br />           (if (= 0 (rem spacYear 4))<br />             (if        (= 0 (rem spacYear 100))<br />               (if (= 0 (rem spacYear 400))<br />                 29<br />                 28<br />               )<br />               29<br />             )<br />             28<br />           )<br />     )<br />     (cons 3 31)<br />     (cons 4 30)<br />     (cons 5 31)<br />     (cons 6 30)<br />     (cons 7 31)<br />     (cons 8 31)<br />     (cons 9 30)<br />     (cons 10 31)<br />     (cons 11 30)<br />     (cons 12 31)<br />   )<br /> )<br /> ;;;返回指定日期是当年的第几天<br /> ;;;spyear  指定年份<br /> ;;;spmonth 指定月份<br /> ;;;spdate  指定日期<br /> (defun dt-nthdate (spyear spmonth spdate / ddList somemon sumdates)<br />   (if (and (numberp spyear) (numberp spmonth) (numberp spdate))<br />     (progn<br />       (setq ddList   (dt-everyMonth-list spyear)<br />             somemon  1<br />             sumdates 0<br />       )<br />       (while (< somemon spmonth)<br />         (setq sumdates (+ (cdr (assoc somemon ddList)) sumdates)<br />               somemon  (1+ somemon)<br />         )<br />       )<br />       (+ sumdates spdate)<br />     )<br />   )<br /> )<br /> ;;;两个日期之间的天数<br /> (defun dt-dist (mList nList / maxyear minyear maxList minList someyear<br />                 sumdate)<br />   (if (and (numberp (caddr mList)) (numberp (caddr nList)))<br />     (if        (/= (car mList) (car nList))<br />       (progn<br />         (setq maxyear (max (car mList) (car nList))<br />               minyear (min (car mList) (car nList))<br />               maxList (assoc maxyear (list mList nList))<br />               minList (assoc minyear (list mList nList))<br />         )<br />         (setq someyear (+ minyear 1)<br />               sumdate  0<br />         )<br />         (while (< someyear maxyear)<br />           (setq        sumdate         (+ (dt-dates someyear) sumdate)<br />                 someyear (1+ someyear)<br />           )<br />         )<br />         (+ (- (dt-dates minyear)<br />               (dt-nthdate minyear (cadr minList) (caddr minList))<br />            )<br />            sumdate<br />            (dt-nthdate maxyear (cadr maxList) (caddr maxList))<br />         )<br />       )<br />       (abs (- (dt-nthdate (car mList) (cadr mList) (caddr mList))<br />               (dt-nthdate (car nList) (cadr nList) (caddr nList))<br />            )<br />       )<br />     )<br />   )<br /> )

yeshuaxing

谢谢楼上的兄弟姐妹，太让我感动了

yeshuaxing

Andyhon 发表于 2012-7-1 15:56
Command: (- (distof "20120702") (distof "20120701"))
1.0

老大，这法子好象只适用于当月的情况，不过还是谢谢

Andyhon

...我的日期为字符串...

可否先来个示例?
Command: (Rtos (getVar "Cdate") 2 16)
"20120701.16370862"

Command: (Rtos (getVar "date") 2 16)
"2456110.692659502"

yeshuaxing

Andyhon 发表于 2012-7-1 16:40
...我的日期为字符串...

可否先来个示例?

;;;将字符串转为列表，str字符串,del字符串的分隔符
(DEFUN stringtolist (str del / pos lst)
    (WHILE (SETQ pos (VL-STRING-SEARCH del str))
        (SETQ lst (CONS (SUBSTR str 1 pos) lst)
              str (SUBSTR str (+ pos 1 (STRLEN del)))
        )
    )
    (REVERSE (CONS str lst))
)

yeshuaxing

Andyhon 发表于 2012-7-1 16:40
...我的日期为字符串...

可否先来个示例?

修改原代码
;;;两个日期之间的天数
(DEFUN dt-dist (mlist nlist / maxyear minyear maxlist minlist someyear
                sumdate
               );;;
;;;
;;;    (setq mlist "2003/11/1" nlist "2003/1/1")
    (SETQ mlist        (stringtolist mlist "/")
          nlist        (stringtolist nlist "/")
    )
    (SETQ mlist        (LIST (ATOI (CAR mlist))
                      (ATOI (CADR mlist))
                      (ATOI (CADDR mlist))
                )
    )
    (SETQ nlist        (LIST (ATOI (CAR nlist))
                      (ATOI (CADR nlist))
                      (ATOI (CADDR nlist))
                )
    );;;上为增加的代码
;;;;
(IF        (AND (NUMBERP (CADDR mlist)) (NUMBERP (CADDR nlist)))
        (IF (/= (CAR mlist) (CAR nlist))
            (PROGN
                (SETQ maxyear (MAX (CAR mlist) (CAR nlist))
                      minyear (MIN (CAR mlist) (CAR nlist))
                      maxlist (ASSOC maxyear (LIST mlist nlist))
                      minlist (ASSOC minyear (LIST mlist nlist))
                )
                (SETQ someyear (+ minyear 1)
                      sumdate  0
                )
...............................................................

;;;将日期如：“2012/07/01”转为列表，str字符串,del字符串的分隔符
(DEFUN stringtolist (str del / pos lst)
    (WHILE (SETQ pos (VL-STRING-SEARCH del str))
        (SETQ lst (CONS (SUBSTR str 1 pos) lst)
              str (SUBSTR str (+ pos 1 (STRLEN del)))
        )
    )
    (REVERSE (CONS str lst))
)

.................................

  应用举例： (dt-dist “2012/07/01”  “2011/1/1”)

Andyhon

这儿有个 Julian date 的示例可一并参考
http://forums.autodesk.com/t5/Vi ... d-Time/td-p/2400622

yeshuaxing

Andyhon 发表于 2012-7-1 20:44
这儿有个 Julian date 的示例可一并参考
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-Genera ...

谢谢Andyhon长老，你提供的代码可以解决问题了，再谢.....