时间转换函数 by tengte

/db_自贡黄明儒_

搜到时间转换函数，记录一下，以便下次自己用时好找

1. ;;http://bbs.mjtd.com/forum.php?mo ... &highlight=date  by tengte
   
2. ;;时间格式转化：CDate转化为Date，无效日期返回nil
   
3. (defun CDate->Date (cdate / Round Time Diff cd dt i0 i n s)
   
4.   (defun Round (x)
   
5.     (if        (>= x 0)
   
6.       (fix (+ x 0.5))
   
7.       (fix (- x 0.5))
   
8.     )                                                            ;if
   
9.   )                                                            ;defun
   
10.   (defun Time (dt / x h m s)
    
11.     (setq x (Round (rem (* dt 1E6) 1E6)))
    
12.     (setq h (/ x 10000)
    
13.           m (/ (rem x 10000) 100)
    
14.           s (rem x 100)
    
15.     )
    
16.     (/ (+ (* 3600 h) (* 60 m) s) 8.64E4)
    
17.   )                                                            ;defun
    
18.   (defun Diff (cd1 cd2 / y1 y2 m1 m2 d1 d2 n)
    
19.     (cond
    
20.       ((= cd1 cd2) (setq n 0))
    
21.       ((setq y1        (/ cd1 10000)
    
22.              m1        (rem (/ cd1 100) 100)
    
23.              d1        (rem cd1 100)
    
24.              y2        (/ cd2 10000)
    
25.              m2        (rem (/ cd2 100) 100)
    
26.              d2        (rem cd2 100)
    
27.              n        (Round (+ (* 366 (- y1 y2)) (* 30.5 (- m1 m2)) (- d1 d2)))
    
28.        )
    
29.        (and (= n 0) (setq n nil))
    
30.       )
    
31.     )                                                            ;cond
    
32.     n
    
33.   )                                                            ;defun
    
34.   (setq        cd (fix cdate)
    
35.         dt -47130101
    
36.         i0 0
    
37.         n  0
    
38.   )
    
39.   (while (and (setq i (Diff cd dt)) (/= i 0) (/= 0 (+ i i0)))
    
40.     (setq n  (+ n i)
    
41.           s  (strcat "M=$(edtime," (itoa n) ",YYYYMODD)")
    
42.           dt (atoi (menucmd s))
    
43.           i0 i
    
44.     )
    
45.   )                                                            ;while
    
46.   (if (or (not i) (= 0 (+ i i0)))
    
47.     (setq n nil)
    
48.   )                                                            ;if
    
49.   (and n (setq n (+ n (Time cdate))))
    
50.   n
    
51. )
    
52. 
    
53. ;;时间格式转化：Date转化为CDate
    
54. (defun Date->CDate (date / s)
    
55.   (setq s (strcat "M=$(edtime," (rtos date 2 8) ",YYYYMODD.HHMMSS)"))
    
56.   (atof (menucmd s))
    
57. )

;;<a href=\"http://bbs.mjtd.com/forum.php?mod=viewthread&tid=112484&highlight=date\" target=\"_blank\">http://bbs.mjtd.com/forum.php?mo ... &highlight=date</a>  by tengte<br /> ;;时间格式转化：CDate转化为Date，无效日期返回nil<br /> (defun CDate->Date (cdate / Round Time Diff cd dt i0 i n s)<br />   (defun Round (x)<br />     (if        (>= x 0)<br />       (fix (+ x 0.5))<br />       (fix (- x 0.5))<br />     )                                                            ;if<br />   )                                                            ;defun<br />   (defun Time (dt / x h m s)<br />     (setq x (Round (rem (* dt 1E6) 1E6)))<br />     (setq h (/ x 10000)<br />           m (/ (rem x 10000) 100)<br />           s (rem x 100)<br />     )<br />     (/ (+ (* 3600 h) (* 60 m) s) 8.64E4)<br />   )                                                            ;defun<br />   (defun Diff (cd1 cd2 / y1 y2 m1 m2 d1 d2 n)<br />     (cond<br />       ((= cd1 cd2) (setq n 0))<br />       ((setq y1        (/ cd1 10000)<br />              m1        (rem (/ cd1 100) 100)<br />              d1        (rem cd1 100)<br />              y2        (/ cd2 10000)<br />              m2        (rem (/ cd2 100) 100)<br />              d2        (rem cd2 100)<br />              n        (Round (+ (* 366 (- y1 y2)) (* 30.5 (- m1 m2)) (- d1 d2)))<br />        )<br />        (and (= n 0) (setq n nil))<br />       )<br />     )                                                            ;cond<br />     n<br />   )                                                            ;defun<br />   (setq        cd (fix cdate)<br />         dt -47130101<br />         i0 0<br />         n  0<br />   )<br />   (while (and (setq i (Diff cd dt)) (/= i 0) (/= 0 (+ i i0)))<br />     (setq n  (+ n i)<br />           s  (strcat "M=$(edtime," (itoa n) ",YYYYMODD)")<br />           dt (atoi (menucmd s))<br />           i0 i<br />     )<br />   )                                                            ;while<br />   (if (or (not i) (= 0 (+ i i0)))<br />     (setq n nil)<br />   )                                                            ;if<br />   (and n (setq n (+ n (Time cdate))))<br />   n<br /> )<br /> <br /> ;;时间格式转化：Date转化为CDate<br /> (defun Date->CDate (date / s)<br />   (setq s (strcat "M=$(edtime," (rtos date 2 8) ",YYYYMODD.HHMMSS)"))<br />   (atof (menucmd s))<br /> )

ray7891

下来试试什么效果。

sicky111

不错，支持黄大师。

sh_h

谢谢楼主分享！！！

yoyoho

感谢分享程序！！！！

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢