（XD::Time:Weekday）判断具体日期是星期几

newer

1. (defun XD::Time:Weekday (y m d)
   
2.   (if (= (type y) 'str)
   
3.     (setq y (atoi y))
   
4.   )
   
5.   (if (= (type m) 'str)
   
6.     (setq m (atoi m))
   
7.   )
   
8.   (if (= (type d) 'str)
   
9.     (setq d (atoi d))
   
10.   )
    
11.   (if (< m 3)
    
12.     (setq y (1- y)
    
13.           m (+ m 12)
    
14.     )
    
15.   )
    
16.   (setq ret (rem (+ 5 d (/ (* 26 (1+ m)) 10) y (/ y 4) (* 6 (/ y 100))
    
17.                     (/ y 400)
    
18.                  ) 7
    
19.             )
    
20.   )
    
21.   (cond
    
22.     ((= ret 6)
    
23.       0
    
24.     )
    
25.     (t
    
26.       (1+ ret)
    
27.     )
    
28.   )
    
29. )
    

(defun XD::Time:Weekday (y m d)<br />   (if (= (type y) 'str)<br />     (setq y (atoi y))<br />   )<br />   (if (= (type m) 'str)<br />     (setq m (atoi m))<br />   )<br />   (if (= (type d) 'str)<br />     (setq d (atoi d))<br />   )<br />   (if (< m 3)<br />     (setq y (1- y)<br />           m (+ m 12)<br />     )<br />   )<br />   (setq ret (rem (+ 5 d (/ (* 26 (1+ m)) 10) y (/ y 4) (* 6 (/ y 100))<br />                     (/ y 400)<br />                  ) 7<br />             )<br />   )<br />   (cond<br />     ((= ret 6)<br />       0<br />     )<br />     (t<br />       (1+ ret)<br />     )<br />   )<br /> )<br />

st788796

用menucmd