（XD::Time:GMT2Julian）GMT格式时间转本地儒略历时间

marting

1. (defun XD::Time:GMT2Julian (str / hms hour minus sec year day mouth)
   
2.   (and (setq hms (xdrx_string_regexps "[0-9]+:[0-9]+:[0-9]+" str))
   
3.        (setq hms (xdrx_string_split (car hms) ":"))
   
4.        (setq hour  (atoi (nth 0 hms))
   
5.              hour (+ (XD::Time:TimeZone) hour)
   
6.              minus (atoi (nth 1 hms))
   
7.              sec   (atoi (nth 2 hms))
   
8.        )
   
9.        (setq year (car (xdrx_string_regexps "[0-9]{4}" str)))
   
10.        (setq year (atoi year))
    
11.        (setq day (car (xdrx_string_regexps "(?<=\\s)[0-9]{2}(?=\\s)" str)))
    
12.        (setq day (atoi day))
    
13.        (setq mouth (car (xdrx_string_regexps
    
14.                           "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec"
    
15.                           str
    
16.                         )
    
17.                    )
    
18.              mouth (cdr (assoc mouth
    
19.                                '(("Jan" . 1)
    
20.                                  ("Feb" . 2)
    
21.                                  ("Mar" . 3)
    
22.                                  ("Apr" . 4)
    
23.                                  ("May" . 5)
    
24.                                  ("Jun" . 6)
    
25.                                  ("Jul" . 7)
    
26.                                  ("Aug" . 8)
    
27.                                  ("Sep" . 9)
    
28.                                  ("Oct" . 10)
    
29.                                  ("Nov" . 11)
    
30.                                  ("Dec" . 12)
    
31.                                 )
    
32.                         )
    
33.                    )
    
34.        )
    
35.        (setq str (xd::time:date2Julian year mouth day hour minus sec))
    
36.   )
    
37.   str
    
38. )
    
39. 
    

(defun XD::Time:GMT2Julian (str / hms hour minus sec year day mouth)<br />   (and (setq hms (xdrx_string_regexps "[0-9]+:[0-9]+:[0-9]+" str))<br />        (setq hms (xdrx_string_split (car hms) ":"))<br />        (setq hour  (atoi (nth 0 hms))<br />              hour (+ (XD::Time:TimeZone) hour)<br />              minus (atoi (nth 1 hms))<br />              sec   (atoi (nth 2 hms))<br />        )<br />        (setq year (car (xdrx_string_regexps "[0-9]{4}" str)))<br />        (setq year (atoi year))<br />        (setq day (car (xdrx_string_regexps "(?<=\\s)[0-9]{2}(?=\\s)" str)))<br />        (setq day (atoi day))<br />        (setq mouth (car (xdrx_string_regexps<br />                           "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec"<br />                           str<br />                         )<br />                    )<br />              mouth (cdr (assoc mouth<br />                                '(("Jan" . 1)<br />                                  ("Feb" . 2)<br />                                  ("Mar" . 3)<br />                                  ("Apr" . 4)<br />                                  ("May" . 5)<br />                                  ("Jun" . 6)<br />                                  ("Jul" . 7)<br />                                  ("Aug" . 8)<br />                                  ("Sep" . 9)<br />                                  ("Oct" . 10)<br />                                  ("Nov" . 11)<br />                                  ("Dec" . 12)<br />                                 )<br />                         )<br />                    )<br />        )<br />        (setq str (xd::time:date2Julian year mouth day hour minus sec))<br />   )<br />   str<br /> )<br /> <br />

命令: (rtos (XD::Time:GMT2Julian (xd::internet:geturlheader "http://baidu.com"
"date")) 2 15)
"2458195.003773148"

诺捷GOGO

(setq day (car (xdrx_string_regexps "(?<=\\s)[0-9]{2}(?=\\s)" str)))  这里好像不对