格林时间怎么转北京时间

taoyi0727

谢谢 币就不给你了你太多了 都用不完
(defun c:bb (/ b b1 b2 b3)
        (setq
                b  (rtos (getvar "cdate") 2 0);当前日期
                b1 (fix (atof (substr b 1 4)));年
                b2 (fix (atof (substr b 5 2)));月
                b3 (fix (atof (substr b 7 2)));日
        )
        (cond
                ((= b2 2);2月
                        (if (= (rem b1 4.0) 0);能整除
                                (alert (strcat "本月天数29\n剩余天数" (rtos (- 29 b3) 2 0)))
                                (alert (strcat "本月天数28\n剩余天数" (rtos (- 28 b3) 2 0)))
                        )
                )
                ((or
                         (= b2 4);4月
                         (= b2 6);6月
                         (= b2 9);9月
                         (= b2 11);11月
                 )
                        (alert (strcat "本月天数30\n剩余天数" (rtos (- 30 b3) 2 0)))
                )
                (T
                        (alert (strcat "本月天数31\n剩余天数" (rtos (- 31 b3) 2 0)))
                )
        )
        (princ)
)

taoyi0727

1291500406 发表于 2019-7-19 11:16
(defun c:bb ( / b b1 b2 b3 b4)
(setq b(rtos(getvar ' cdate)2 0)b1 (fix(atof(substr b 1 4)))b2(fix ...

2. ;;说明:把字符串按特定字符分隔成表
   
3. ;;参数:str:字符串
   
4. ;;参数:del:字符串的分隔符
   
5. ;;返回:表
   
6. ;;用法:(T-string-separated "2012-07-01" "-")
   
7. (defun T-string-separated (str del / lst pos)
   
8.   (if (/= str nil)
   
9.     (progn
   
10.       (while (setq pos (vl-string-search del str))
    
11.         (setq
    
12.           lst (cons (substr str 1 pos) lst)
    
13.           str (substr str (+ pos 1 (strlen del)))
    
14.         )
    
15.       )
    
16.       (reverse (cons str lst))
    
17.     )
    
18.   )
    
19. )
    
20. ;;说明:时间计算
    
21. ;;参数:time1:时间 [str]
    
22. ;;参数:time2:时间 [str]
    
23. ;;参数:model:+相加  -相减
    
24. ;;参数:get:返回模式 1---字符串时间  2---表时间
    
25. ;;返回:时间表 [list] 第1项 -1--退回1天 0--当天 1--前进1天
    
26. ;;     (-1 "23:59:40")
    
27. ;;     (-1 23 59 40)
    
28. ;;用法:(T-time-calculate "23:50:50" "00:51:10" '+ 1)--->(1 "00:42:00")
    
29. (defun T-time-calculate (time1 time2 model get / day h m s)
    
30.   (setq time1 (mapcar 'atoi (T-string-separated time1 ":")))
    
31.   (setq time2 (mapcar 'atoi (T-string-separated time2 ":")))
    
32.   (setq day 0)
    
33.   (cond
    
34.     ((= model '+)
    
35.       (if (>= (setq s (+ (nth 2 time1) (nth 2 time2))) 60);大于等于60秒
    
36.         (progn
    
37.           (setq m 1);分+1
    
38.           (setq s (- s 60))
    
39.         )
    
40.       );计算秒
    
41.       (if (if m
    
42.             (>= (setq m (+ (nth 1 time1) (nth 1 time2) 1)) 60);大于等于60分
    
43.             (>= (setq m (+ (nth 1 time1) (nth 1 time2))) 60);大于等于60分
    
44.           )
    
45.         (progn
    
46.           (setq h 1);时+1
    
47.           (setq m (- m 60))
    
48.         )
    
49.       );计算分
    
50.       (if (if h
    
51.             (>= (setq h (+ (nth 0 time1) (nth 0 time2) 1)) 24);大于等于24时
    
52.             (>= (setq h (+ (nth 0 time1) (nth 0 time2))) 24);大于等于24时
    
53.           )
    
54.         (progn
    
55.           (setq day 1);天+1
    
56.           (setq h (- h 24))
    
57.         )
    
58.       );计算时
    
59.     )
    
60.     ((= model '-)
    
61.       (if (< (setq s (- (nth 2 time1) (nth 2 time2))) 0);小于0秒
    
62.         (progn
    
63.           (setq m -1);分-1
    
64.           (setq s (+ 60 s))
    
65.         )
    
66.       );计算秒
    
67.       (if (if m
    
68.             (< (setq m (- (nth 1 time1) (nth 1 time2) 1)) 0);小于0分
    
69.             (< (setq m (- (nth 1 time1) (nth 1 time2))) 0);小于0分
    
70.           )
    
71.         (progn
    
72.           (setq h -1);时-1
    
73.           (setq m (+ m 60))
    
74.         )
    
75.       );计算分
    
76.       (if (if h
    
77.             (< (setq h (- (nth 0 time1) (nth 0 time2) 1)) 0);小于0时
    
78.             (< (setq h (- (nth 0 time1) (nth 0 time2))) 0);小于0时
    
79.           )
    
80.         (progn
    
81.           (setq day -1);时+1
    
82.           (setq h 23)
    
83.         )
    
84.       );计算时
    
85.     )
    
86.   )
    
87.   (cond
    
88.     ((= get 1)
    
89.       (list day (strcat
    
90.                   (if (= (strlen (setq h (itoa h))) 1)
    
91.                     (strcat "0" h)
    
92.                     h
    
93.                   )
    
94.                   ":"
    
95.                   (if (= (strlen (setq m (itoa m))) 1)
    
96.                     (strcat "0" m)
    
97.                     m
    
98.                   )
    
99.                   ":"
    
100.                   (if (= (strlen (setq s (itoa s))) 1)
     
101.                     (strcat "0" s)
     
102.                     s
     
103.                   )
     
104.                 )
     
105.       )
     
106.     )
     
107.     ((= get 2)
     
108.       (list day h m s)
     
109.     )
     
110.   )
     
111. )
     
112. ;;说明:获取指定年份的总天数
     
113. ;;参数:year:年 [int]
     
114. ;;返回:当年的天数 [int]
     
115. (defun T-get-year-days (year)
     
116.   (if (numberp year)
     
117.     (if (= 0 (rem year 4))
     
118.       (if (= 0 (rem year 100))
     
119.         (if (= 0 (rem year 400))
     
120.           366
     
121.           365
     
122.         )
     
123.         366
     
124.       )
     
125.       365
     
126.     )
     
127.   )
     
128. )
     
129. ;;说明:获取指定年份每月天数的关联表
     
130. ;;参数:year:年 [int]
     
131. ;;返回:每月天数的关联表 [list]
     
132. (defun T-get-year-every-month-days (year)
     
133.   (list
     
134.     (cons 1 31)
     
135.     (cons 2
     
136.       (if (= 0 (rem year 4))
     
137.         (if (= 0 (rem year 100))
     
138.           (if (= 0 (rem year 400))
     
139.             29
     
140.             28
     
141.           )
     
142.           29
     
143.         )
     
144.         28
     
145.       )
     
146.     )
     
147.     (cons 3 31)
     
148.     (cons 4 30)
     
149.     (cons 5 31)
     
150.     (cons 6 30)
     
151.     (cons 7 31)
     
152.     (cons 8 31)
     
153.     (cons 9 30)
     
154.     (cons 10 31)
     
155.     (cons 11 30)
     
156.     (cons 12 31)
     
157.   )
     
158. )
     
159. ;;说明:格林时间转北京时间
     
160. ;;参数:date:格林时间 [str]
     
161. ;;返回:北京时间 [str]
     
162. ;;用法:(T-gmt-Beijing-time "Fri, 19 Jul 2019 05:57:20 GMT")
     
163. (defun T-gmt-Beijing-time (date / day month n temp time week years)
     
164.   (setq date (T-string-separated date " "))
     
165.   (setq years (atoi (nth 3 date)));年
     
166.   (setq month (nth 2 date));月
     
167.   (cond
     
168.     ((= (strcase month) "JAN")
     
169.       (setq month 1)
     
170.     )
     
171.     ((= (strcase month) "FEB")
     
172.       (setq month 2)
     
173.     )
     
174.     ((= (strcase month) "MAR")
     
175.       (setq month 3)
     
176.     )
     
177.     ((= (strcase month) "APR")
     
178.       (setq month 4)
     
179.     )
     
180.     ((= (strcase month) "MAY")
     
181.       (setq month 5)
     
182.     )
     
183.     ((= (strcase month) "JUN")
     
184.       (setq month 6)
     
185.     )
     
186.     ((= (strcase month) "JUL")
     
187.       (setq month 7)
     
188.     )
     
189.     ((= (strcase month) "AUG")
     
190.       (setq month 8)
     
191.     )
     
192.     ((= (strcase month) "SEP")
     
193.       (setq month 9)
     
194.     )
     
195.     ((= (strcase month) "OCT")
     
196.       (setq month 10)
     
197.     )
     
198.     ((= (strcase month) "NOW")
     
199.       (setq month 11)
     
200.     )
     
201.     ((= (strcase month) "DEC")
     
202.       (setq month 12)
     
203.     )
     
204.   )
     
205.   (setq day (atoi (nth 1 date)));日
     
206.   (setq time (nth 4 date));时间
     
207.   (setq week (vl-list->string (reverse (cdr (reverse (vl-string->list (car date)))))));星期
     
208.   (cond
     
209.     ((= (strcase week) "MON");星期一
     
210.       (setq week 0)
     
211.     )
     
212.     ((= (strcase week) "TUES");星期二
     
213.       (setq week 1)
     
214.     )
     
215.     ((= (strcase week) "WED");星期三
     
216.       (setq week 2)
     
217.     )
     
218.     ((= (strcase week) "WED");星期四
     
219.       (setq week 3)
     
220.     )
     
221.     ((= (strcase week) "FRI");星期五
     
222.       (setq week 4)
     
223.     )
     
224.     ((= (strcase week) "SAT");星期六
     
225.       (setq week 5)
     
226.     )
     
227.     ((= (strcase week) "THU");星期日
     
228.       (setq week 6)
     
229.     )
     
230.   )
     
231.   (setq time (T-time-calculate time "08:00:00" '+ 1));北京时间
     
232.   (if (= (car time) 1)
     
233.     (progn
     
234.       (setq temp (cdr (assoc month (T-get-year-every-month-days years))));本月天数
     
235.       (if (> (setq day (+ day 1)) temp);大于本月天数
     
236.         (progn
     
237.           (setq day 1);1号
     
238.           (setq n 1);加1月
     
239.           (if (> (1+ week) 6)
     
240.             (setq week (- (1+ week) 7))
     
241.             (setq week (1+ week))
     
242.           );星期
     
243.         )
     
244.       )
     
245.     )
     
246.   )
     
247.   (if n
     
248.     (if (< month 12)
     
249.       (setq month (1+ month));加1月
     
250.       (progn
     
251.         (setq month (- (1+ month) 12));加1月减12月
     
252.         (setq years (1+ years));加1年
     
253.       )
     
254.     )
     
255.   )
     
256.   (strcat
     
257.     (itoa years);年
     
258.     "-"
     
259.     (if (= (strlen (setq month (itoa month))) 1)
     
260.       (strcat "0" month)
     
261.       month
     
262.     );月
     
263.     "-"
     
264.     (if (= (strlen (setq day (itoa day))) 1)
     
265.       (strcat "0" day)
     
266.       day
     
267.     );日
     
268.     " "
     
269.     (cadr time)
     
270.     " "
     
271.     (nth week '("星期一" "星期二" "星期三" "星期四" "星期五" "星期六" "星期日"))
     
272.   )
     
273. )
     
274. (T-gmt-Beijing-time "Fri, 19 Jul 2019 05:57:20 GMT")--->"2019-07-19 13:57:20 星期五"

;;说明:把字符串按特定字符分隔成表<br /> ;;参数:str:字符串<br /> ;;参数:del:字符串的分隔符<br /> ;;返回:表<br /> ;;用法:(T-string-separated "2012-07-01" "-")<br /> (defun T-string-separated (str del / lst pos)<br />   (if (/= str nil)<br />     (progn<br />       (while (setq pos (vl-string-search del str))<br />         (setq<br />           lst (cons (substr str 1 pos) lst)<br />           str (substr str (+ pos 1 (strlen del)))<br />         )<br />       )<br />       (reverse (cons str lst))<br />     )<br />   )<br /> )<br /> ;;说明:时间计算<br /> ;;参数:time1:时间 [str]<br /> ;;参数:time2:时间 [str]<br /> ;;参数:model:+相加  -相减<br /> ;;参数:get:返回模式 1---字符串时间  2---表时间<br /> ;;返回:时间表 [list] 第1项 -1--退回1天 0--当天 1--前进1天<br /> ;;     (-1 "23:59:40")<br /> ;;     (-1 23 59 40)<br /> ;;用法:(T-time-calculate "23:50:50" "00:51:10" '+ 1)--->(1 "00:42:00")<br /> (defun T-time-calculate (time1 time2 model get / day h m s)<br />   (setq time1 (mapcar 'atoi (T-string-separated time1 ":")))<br />   (setq time2 (mapcar 'atoi (T-string-separated time2 ":")))<br />   (setq day 0)<br />   (cond<br />     ((= model '+)<br />       (if (>= (setq s (+ (nth 2 time1) (nth 2 time2))) 60);大于等于60秒<br />         (progn<br />           (setq m 1);分+1<br />           (setq s (- s 60))<br />         )<br />       );计算秒<br />       (if (if m<br />             (>= (setq m (+ (nth 1 time1) (nth 1 time2) 1)) 60);大于等于60分<br />             (>= (setq m (+ (nth 1 time1) (nth 1 time2))) 60);大于等于60分<br />           )<br />         (progn<br />           (setq h 1);时+1<br />           (setq m (- m 60))<br />         )<br />       );计算分<br />       (if (if h<br />             (>= (setq h (+ (nth 0 time1) (nth 0 time2) 1)) 24);大于等于24时<br />             (>= (setq h (+ (nth 0 time1) (nth 0 time2))) 24);大于等于24时<br />           )<br />         (progn<br />           (setq day 1);天+1<br />           (setq h (- h 24))<br />         )<br />       );计算时<br />     )<br />     ((= model '-)<br />       (if (< (setq s (- (nth 2 time1) (nth 2 time2))) 0);小于0秒<br />         (progn<br />           (setq m -1);分-1<br />           (setq s (+ 60 s))<br />         )<br />       );计算秒<br />       (if (if m<br />             (< (setq m (- (nth 1 time1) (nth 1 time2) 1)) 0);小于0分<br />             (< (setq m (- (nth 1 time1) (nth 1 time2))) 0);小于0分<br />           )<br />         (progn<br />           (setq h -1);时-1<br />           (setq m (+ m 60))<br />         )<br />       );计算分<br />       (if (if h<br />             (< (setq h (- (nth 0 time1) (nth 0 time2) 1)) 0);小于0时<br />             (< (setq h (- (nth 0 time1) (nth 0 time2))) 0);小于0时<br />           )<br />         (progn<br />           (setq day -1);时+1<br />           (setq h 23)<br />         )<br />       );计算时<br />     )<br />   )<br />   (cond<br />     ((= get 1)<br />       (list day (strcat<br />                   (if (= (strlen (setq h (itoa h))) 1)<br />                     (strcat "0" h)<br />                     h<br />                   )<br />                   ":"<br />                   (if (= (strlen (setq m (itoa m))) 1)<br />                     (strcat "0" m)<br />                     m<br />                   )<br />                   ":"<br />                   (if (= (strlen (setq s (itoa s))) 1)<br />                     (strcat "0" s)<br />                     s<br />                   )<br />                 )<br />       )<br />     )<br />     ((= get 2)<br />       (list day h m s)<br />     )<br />   )<br /> )<br /> ;;说明:获取指定年份的总天数<br /> ;;参数:year:年 [int]<br /> ;;返回:当年的天数 [int]<br /> (defun T-get-year-days (year)<br />   (if (numberp year)<br />     (if (= 0 (rem year 4))<br />       (if (= 0 (rem year 100))<br />         (if (= 0 (rem year 400))<br />           366<br />           365<br />         )<br />         366<br />       )<br />       365<br />     )<br />   )<br /> )<br /> ;;说明:获取指定年份每月天数的关联表<br /> ;;参数:year:年 [int]<br /> ;;返回:每月天数的关联表 [list]<br /> (defun T-get-year-every-month-days (year)<br />   (list<br />     (cons 1 31)<br />     (cons 2<br />       (if (= 0 (rem year 4))<br />         (if (= 0 (rem year 100))<br />           (if (= 0 (rem year 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 /> ;;参数:date:格林时间 [str]<br /> ;;返回:北京时间 [str]<br /> ;;用法:(T-gmt-Beijing-time "Fri, 19 Jul 2019 05:57:20 GMT")<br /> (defun T-gmt-Beijing-time (date / day month n temp time week years)<br />   (setq date (T-string-separated date " "))<br />   (setq years (atoi (nth 3 date)));年<br />   (setq month (nth 2 date));月<br />   (cond<br />     ((= (strcase month) "JAN")<br />       (setq month 1)<br />     )<br />     ((= (strcase month) "FEB")<br />       (setq month 2)<br />     )<br />     ((= (strcase month) "MAR")<br />       (setq month 3)<br />     )<br />     ((= (strcase month) "APR")<br />       (setq month 4)<br />     )<br />     ((= (strcase month) "MAY")<br />       (setq month 5)<br />     )<br />     ((= (strcase month) "JUN")<br />       (setq month 6)<br />     )<br />     ((= (strcase month) "JUL")<br />       (setq month 7)<br />     )<br />     ((= (strcase month) "AUG")<br />       (setq month 8)<br />     )<br />     ((= (strcase month) "SEP")<br />       (setq month 9)<br />     )<br />     ((= (strcase month) "OCT")<br />       (setq month 10)<br />     )<br />     ((= (strcase month) "NOW")<br />       (setq month 11)<br />     )<br />     ((= (strcase month) "DEC")<br />       (setq month 12)<br />     )<br />   )<br />   (setq day (atoi (nth 1 date)));日<br />   (setq time (nth 4 date));时间<br />   (setq week (vl-list->string (reverse (cdr (reverse (vl-string->list (car date)))))));星期<br />   (cond<br />     ((= (strcase week) "MON");星期一<br />       (setq week 0)<br />     )<br />     ((= (strcase week) "TUES");星期二<br />       (setq week 1)<br />     )<br />     ((= (strcase week) "WED");星期三<br />       (setq week 2)<br />     )<br />     ((= (strcase week) "WED");星期四<br />       (setq week 3)<br />     )<br />     ((= (strcase week) "FRI");星期五<br />       (setq week 4)<br />     )<br />     ((= (strcase week) "SAT");星期六<br />       (setq week 5)<br />     )<br />     ((= (strcase week) "THU");星期日<br />       (setq week 6)<br />     )<br />   )<br />   (setq time (T-time-calculate time "08:00:00" '+ 1));北京时间<br />   (if (= (car time) 1)<br />     (progn<br />       (setq temp (cdr (assoc month (T-get-year-every-month-days years))));本月天数<br />       (if (> (setq day (+ day 1)) temp);大于本月天数<br />         (progn<br />           (setq day 1);1号<br />           (setq n 1);加1月<br />           (if (> (1+ week) 6)<br />             (setq week (- (1+ week) 7))<br />             (setq week (1+ week))<br />           );星期<br />         )<br />       )<br />     )<br />   )<br />   (if n<br />     (if (< month 12)<br />       (setq month (1+ month));加1月<br />       (progn<br />         (setq month (- (1+ month) 12));加1月减12月<br />         (setq years (1+ years));加1年<br />       )<br />     )<br />   )<br />   (strcat<br />     (itoa years);年<br />     "-"<br />     (if (= (strlen (setq month (itoa month))) 1)<br />       (strcat "0" month)<br />       month<br />     );月<br />     "-"<br />     (if (= (strlen (setq day (itoa day))) 1)<br />       (strcat "0" day)<br />       day<br />     );日<br />     " "<br />     (cadr time)<br />     " "<br />     (nth week '("星期一" "星期二" "星期三" "星期四" "星期五" "星期六" "星期日"))<br />   )<br /> )<br /> (T-gmt-Beijing-time "Fri, 19 Jul 2019 05:57:20 GMT")--->"2019-07-19 13:57:20 星期五"

网上找了一些 自己写了一些   字符串分隔好像是黄大师的  写的最菜的那2个就是我自己写的

Andyhon

或许您可参研 Julian.Lsp

taoyi0727

Andyhon 发表于 2019-7-19 14:20
或许您可参研 Julian.Lsp

http://read.pudn.com/downloads66 ... LS/JULIAN.LSP__.htm
是这个吗?

Andyhon

我这儿在 Express之下
...\Express\julian.Lsp

taoyi0727

Andyhon 发表于 2019-7-19 16:27
我这儿在 Express之下
...\Express\julian.Lsp

果然有   CAD安装目录下重来没有去翻过  
谢了

1291500406

taoyi0727 发表于 2019-7-19 14:03
网上找了一些 自己写了一些   字符串分隔好像是黄大师的  写的最菜的那2个就是我自己写的

1. ---> "2019年7月19日 13:57:20 星期五"
   
2. (T-gmt-Beijing-time "Fri, 19 Jul 2019 05:57:20 GMT")--->"2019-07-19 13:57:20 星期五"太复杂了
   

---> "2019年7月19日 13:57:20 星期五"<br /> (T-gmt-Beijing-time "Fri, 19 Jul 2019 05:57:20 GMT")--->"2019-07-19 13:57:20 星期五"太复杂了<br />

LISP调用javascript函数方法举例 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)