[LISP程序]：时间计算

aaddff

请问在lisp程序中怎样实现日期的+ ,- 运算

zhynt

试试这个：
(setq tn (menucmd "m=$(edtime,$(getvar,date),yyyy m d dddd hh:mm:ss)"))
获取日期和时间，后面的操作就不用我讲了吧。
注：yyyy年
m月
d日
dddd星期
……

lsjjm

Reference:

(setq  day (rtos (getvar "cdate") 2 6)
       today (substr day 7 2)
tomorrow (1+ (atoi today))
)

aaddff

可能我没表达清楚我的意思，假如today为31日，那tomorrow成了32了，我的意思是有没简单的方法自动识别每月的天数， 月份大于12则年份自动加一，月份变为一

LUCAS

你說的是萬年歷,計算日期其實相當麻煩!4年一個潤年,100個潤年少一個潤年,1000個潤年又.....不記得了!

xazhji

其实，按30天计算即可，差1天2天的没什么大关系。

mmmm

2. 
   
3. ;==================================================================================================
   
4. ;函  数: C:OAS_System_DurationTime
   
5. ;功  能: 计算时间差
   
6. ;格  式: (C:OAS_System_DurationTime 结束时间[REAL] 起始时间[REAL])
   
7. ;返回值: [成功]: 时间字符串[字符串], 格式为:"[0000Y-00M-00D] 00h:00m:00s"
   
8. ;        [失败]: ""
   
9. ;示  例: (C:OAS_System_DurationTime 20030104.000012 20021031.124124)
   
10. ;      =>"[0000Y-02M-02D] 11h:18m:48s"
    
11. ;==================================================================================================
    
12. (Defun C:OAS_System_DurationTime (EndX       Start      /
    
13.                                 StartYear  StartMon   StartDay
    
14.                                 StartHour  StartMinute
    
15.                                 StartSecond           EndYear
    
16.                                 EndMon     EndDay     EndHour
    
17.                                 EndMinute  EndSecond  Year
    
18.                                 Month      Day        Hour
    
19.                                 Minute     Second     Rtn
    
20.                                )
    
21.   (if (= (type EndX) 'REAL)
    
22.     (setq EndX (rtos EndX 2 6))
    
23.   )
    
24.   (if (= (type Start) 'REAL)
    
25.     (setq Start (rtos Start 2 6))
    
26.   )
    
27.   (setq StartYear   (read (substr Start 1 4))
    
28.         StartMon    (read (substr Start 5 2))
    
29.         StartDay    (read (substr Start 7 2))
    
30.         StartHour   (read (substr Start 10 2))
    
31.         StartMinute (read (substr Start 12 2))
    
32.         StartSecond (read (substr Start 14 2))
    
33.         EndYear     (read (substr EndX 1 4))
    
34.         EndMon      (read (substr EndX 5 2))
    
35.         EndDay      (read (substr EndX 7 2))
    
36.         EndHour     (read (substr EndX 10 2))
    
37.         EndMinute   (read (substr EndX 12 2))
    
38.         EndSecond   (read (substr EndX 14 2))
    
39.   )
    
40.   (if (< (setq Second (- EndSecond StartSecond))
    
41.          0
    
42.       )
    
43.     (setq Second      (+ 60 Second)
    
44.           EndMinute   (1- EndMinute)
    
45.     )
    
46.   )
    
47.   (setq Second (if (< Second 10)
    
48.                  (strcat "0" (itoa Second))
    
49.                  (itoa Second)
    
50.                )
    
51.   )
    
52.   (if (< (setq Minute (- EndMinute StartMinute))
    
53.          0
    
54.       )
    
55.     (setq Minute    (+ 60 Minute)
    
56.           EndHour   (1- EndHour)
    
57.     )
    
58.   )
    
59.   (setq Minute (if (< Minute 10)
    
60.                  (strcat "0" (itoa Minute))
    
61.                  (itoa Minute)
    
62.                )
    
63.   )
    
64.   (if (< (setq Hour (- EndHour StartHour))
    
65.          0
    
66.       )
    
67.     (setq Hour     (+ 24 Hour)
    
68.           EndDay   (1- EndDay)
    
69.     )
    
70.   )
    
71.   (setq Hour (if (< Hour 10)
    
72.                (strcat "0" (itoa Hour))
    
73.                (itoa Hour)
    
74.              )
    
75.   )
    
76.   (if (< (setq Day (- EndDay StartDay))
    
77.          0
    
78.       )
    
79.     (setq Day      (+ 30 Day)
    
80.           EndMon   (1- EndMon)
    
81.     )
    
82.   )
    
83.   (setq Day (if (< Day 10)
    
84.               (strcat "0" (itoa Day))
    
85.               (itoa Day)
    
86.             )
    
87.   )
    
88.   (if (< (setq Month (- EndMon StartMon))
    
89.          0
    
90.       )
    
91.     (setq Month     (+ 12 Month)
    
92.           EndYear   (1- EndYear)
    
93.     )
    
94.   )
    
95.   (setq Month (if (< Month 10)
    
96.                 (strcat "0" (itoa Month))
    
97.                 (itoa Month)
    
98.               )
    
99.         Year  (itoa (- EndYear StartYear))
    
100.         Year  (strcat (substr "0000" 1 (- 4 (strlen Year))) Year)
     
101.         Rtn   ""
     
102.   )
     
103.   (if (null (and (= Year "0000")(= Month Day "00")))
     
104.     (setq Rtn (strcat "[" Year "Y-" Month "M-" Day "D]"))
     
105.   )
     
106.   (setq Rtn (strcat Rtn (chr 32) Hour "h:" Minute "m:" Second "s"))
     
107.   Rtn
     
108. )
     

<br /> ;==================================================================================================<br /> ;函  数: C:OAS_System_DurationTime<br /> ;功  能: 计算时间差<br /> ;格  式: (C:OAS_System_DurationTime 结束时间[REAL] 起始时间[REAL])<br /> ;返回值: [成功]: 时间字符串[字符串], 格式为:"[0000Y-00M-00D] 00h:00m:00s"<br /> ;        [失败]: ""<br /> ;示  例: (C:OAS_System_DurationTime 20030104.000012 20021031.124124)<br /> ;      =>"[0000Y-02M-02D] 11h:18m:48s"<br /> ;==================================================================================================<br /> (Defun C:OAS_System_DurationTime (EndX       Start      /<br />                                 StartYear  StartMon   StartDay<br />                                 StartHour  StartMinute<br />                                 StartSecond           EndYear<br />                                 EndMon     EndDay     EndHour<br />                                 EndMinute  EndSecond  Year<br />                                 Month      Day        Hour<br />                                 Minute     Second     Rtn<br />                                )<br />   (if (= (type EndX) 'REAL)<br />     (setq EndX (rtos EndX 2 6))<br />   )<br />   (if (= (type Start) 'REAL)<br />     (setq Start (rtos Start 2 6))<br />   )<br />   (setq StartYear   (read (substr Start 1 4))<br />         StartMon    (read (substr Start 5 2))<br />         StartDay    (read (substr Start 7 2))<br />         StartHour   (read (substr Start 10 2))<br />         StartMinute (read (substr Start 12 2))<br />         StartSecond (read (substr Start 14 2))<br />         EndYear     (read (substr EndX 1 4))<br />         EndMon      (read (substr EndX 5 2))<br />         EndDay      (read (substr EndX 7 2))<br />         EndHour     (read (substr EndX 10 2))<br />         EndMinute   (read (substr EndX 12 2))<br />         EndSecond   (read (substr EndX 14 2))<br />   )<br />   (if (< (setq Second (- EndSecond StartSecond))<br />          0<br />       )<br />     (setq Second      (+ 60 Second)<br />           EndMinute   (1- EndMinute)<br />     )<br />   )<br />   (setq Second (if (< Second 10)<br />                  (strcat "0" (itoa Second))<br />                  (itoa Second)<br />                )<br />   )<br />   (if (< (setq Minute (- EndMinute StartMinute))<br />          0<br />       )<br />     (setq Minute    (+ 60 Minute)<br />           EndHour   (1- EndHour)<br />     )<br />   )<br />   (setq Minute (if (< Minute 10)<br />                  (strcat "0" (itoa Minute))<br />                  (itoa Minute)<br />                )<br />   )<br />   (if (< (setq Hour (- EndHour StartHour))<br />          0<br />       )<br />     (setq Hour     (+ 24 Hour)<br />           EndDay   (1- EndDay)<br />     )<br />   )<br />   (setq Hour (if (< Hour 10)<br />                (strcat "0" (itoa Hour))<br />                (itoa Hour)<br />              )<br />   )<br />   (if (< (setq Day (- EndDay StartDay))<br />          0<br />       )<br />     (setq Day      (+ 30 Day)<br />           EndMon   (1- EndMon)<br />     )<br />   )<br />   (setq Day (if (< Day 10)<br />               (strcat "0" (itoa Day))<br />               (itoa Day)<br />             )<br />   )<br />   (if (< (setq Month (- EndMon StartMon))<br />          0<br />       )<br />     (setq Month     (+ 12 Month)<br />           EndYear   (1- EndYear)<br />     )<br />   )<br />   (setq Month (if (< Month 10)<br />                 (strcat "0" (itoa Month))<br />                 (itoa Month)<br />               )<br />         Year  (itoa (- EndYear StartYear))<br />         Year  (strcat (substr "0000" 1 (- 4 (strlen Year))) Year)<br />         Rtn   ""<br />   )<br />   (if (null (and (= Year "0000")(= Month Day "00")))<br />     (setq Rtn (strcat "[" Year "Y-" Month "M-" Day "D]"))<br />   )<br />   (setq Rtn (strcat Rtn (chr 32) Hour "h:" Minute "m:" Second "s"))<br />   Rtn<br /> )<br />

chwnin

学习一下这个方法。

chwnin

学习下这个方法