（XD::Time:Date2Julian）公历时间（年月日时分秒）转儒略日（JULIAN）

marting

1. (defun XD::Time:Date2Julian (y m d hour minus second)
   
2.   (if (< m 3)
   
3.     (progn (setq y (1- y)
   
4.                  m (+ m 12)
   
5.            )
   
6.     )
   
7.   )
   
8.   (setq y (+ y 8000))
   
9.   (+ (- (- (+ (- (+ (* y 365) (/ y 4)) (/ y 100))
   
10.               (/ y 400)
    
11.               (/ (+ (* m 153) 3) 5)
    
12.               d
    
13.            )
    
14.            92
    
15.         )
    
16.         1
    
17.         1200820
    
18.      )
    
19.      (/ hour 24.0)
    
20.      (/ minus 1440.0)
    
21.      (/ second 86400.0)
    
22.   )
    
23. )
    
24. 
    

(defun XD::Time:Date2Julian (y m d hour minus second)<br />   (if (< m 3)<br />     (progn (setq y (1- y)<br />                  m (+ m 12)<br />            )<br />     )<br />   )<br />   (setq y (+ y 8000))<br />   (+ (- (- (+ (- (+ (* y 365) (/ y 4)) (/ y 100))<br />               (/ y 400)<br />               (/ (+ (* m 153) 3) 5)<br />               d<br />            )<br />            92<br />         )<br />         1<br />         1200820<br />      )<br />      (/ hour 24.0)<br />      (/ minus 1440.0)<br />      (/ second 86400.0)<br />   )<br /> )<br /> <br />

命令: (setq a (mapcar 'set '(y m d hour minus second) (mapcar 'atoi
(xd::time:now))))
(2018 3 16 19 7 11)

命令: (apply 'xd::time:date2julian a)
2.45819e+006

命令: (rtos (apply 'xd::time:date2julian a) 2 15)
"2458194.796655092"

yangjian001

公历时间（年月日时分秒）转儒略日