返回两个日期之间的天数(年月日)

admin

1. (K:LstDateDist
2.      (list 2024 01 05)
3.      (list 2024 01 08)
4. ) ;-> 返回3
7. ;返回两个(Lst)日期之间的天数,Lst = (list Year Moth Date)
8. (defun K:LstDateDist (Lst1 Lst2 / TolDay MaxLst MinLst i)
9.     (setq TolDay 0)
10.     (setq Lst1 (cons (car Lst1)(apply 'K:Date4Year Lst1))
11.           Lst2 (cons (car Lst2)(apply 'K:Date4Year Lst2))
12.     );重构表为:年份+当年日期的天数
13.     (if (eq (car Lst1) (car Lst2));年份相等
14.         (setq TolDay (abs (- (cdr Lst1) (cdr Lst2))));当年日期之差
15.         (progn
16.             (setq MaxLst (assoc (max (car Lst1) (car Lst2)) (list Lst1 Lst2))
17.                   MinLst (assoc (min (car Lst1) (car Lst2)) (list Lst1 Lst2))  
18.             );找最大和最小
19.             (setq i 0 TolDay 0)
20.             (repeat (setq i (- (car MaxLst) (car MinLst)))
21.                 (setq TolDay
22.                     (+  TolDay
23.                         (if (K:IsLeapYear (+ (setq i (1- i)) (car MinLst))) 366 365);指定年份的天数
24.                     )
25.                 )
26.             )
27.             (setq TolDay (+ TolDay (cdr MaxLst) (- (cdr MinLst))));加大减小
28.         )
29.     )
30.     TolDay
31. )
34. ;判断指定年份(完整年份, 如2024年)是否为闰年
35. (defun K:IsLeapYear (Year)
36.   (if (equal (rem Year 4.0) 0.0 0.00001)
37.       (if (equal (rem Year 100.0) 0.0 0.00001);测试整除100年的例外
38.           (if (equal (rem Year 400.0) 0.0 0.00001);测试整除400年的双重例外
39.               T   ;整除400是闰年
40.               nil ;整除100但不能整除400的年份为闰年
41.           )
42.           T ;整除4但不能整除100的年份为闰年
43.       )
44.       nil ;不能整除4的年份不是闰年
45.   )
46. )
47. ;返回指定日期是当年的第几天
48. (defun K:Date4Year (Year Moth Date / EvMothLst m d)
49.   (if (and (numberp Year) (numberp Moth) (numberp Date))
50.       (progn
51.           (setq EvMothLst   
52.                 (list
53.                   (cons 1 31)
54.                   (cons 2 (if (K:IsLeapYear Year) 29 28))
55.                   (cons 3 31)
56.                   (cons 4 30)
57.                   (cons 5 31)
58.                   (cons 6 30)
59.                   (cons 7 31)
60.                   (cons 8 31)
61.                   (cons 9 30)
62.                   (cons 10 31)
63.                   (cons 11 30)
64.                   (cons 12 31)
65.                 )
66.           );指定年份每个月及天数的关联表
67.           (setq m 1 d 0)
68.           (while (< m Moth)
69.               (setq d (+ (cdr (assoc m EvMothLst)) d)
70.                     m  (1+ m)
71.               )
72.           )
73.           (+ d Date)
74.       )
75.   )
76. )
81. ;格式化时间成列表(STR/Real)
82.       (defun K:Time2Lst (STR)
83.         (if (numberp STR) (setq STR (rtos STR 2 0)));Real/Int -> STR
84.         (mapcar
85.           'atoi
86.           (list
87.             (substr STR 1 4)
88.             (substr STR 5 2)
89.             (substr STR 7 2)
90.           )
91.         )
92.       )

复制代码