关于时间，日期，星期的一些函数代码

newer

1、判断是否是闰年

1. (defun XD::DOC:leapyear-p ( y )
   
2.     (and (zerop (rem y 4))
   
3.          (or (zerop (rem y 400))
   
4.              (not (zerop (rem y 100)))
   
5.          )
   
6.     )
   
7. )
   
8. 
   

(defun XD::DOC:leapyear-p ( y )<br />     (and (zerop (rem y 4))<br />          (or (zerop (rem y 400))<br />              (not (zerop (rem y 100)))<br />          )<br />     )<br /> )<br /> <br />

2、求给定日期（年 月 日 ），整数或者字符串  是星期几， 0-周日，1-周一.......

1. (defun XD::DOC: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. )
    
30. 
    

(defun XD::DOC: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 /> <br />

下面结果说明2017年5月2日是星期二

1. 命令: (XD::DOC:WEEKday 2017 5 2)
   
2. 2
   

命令: (XD::DOC:WEEKday 2017 5 2)<br /> 2<br />

3、求具体日期是当年的第几个星期

游客，如果您要查看本帖隐藏内容请回复

1. 命令: (XD::DOC:WEEKNUMBER "2017" "5" "2")
   
2. 18
   
3. 命令: (XD::DOC:WEEKNUMBER 2017 5 2)
   
4. 18
   

命令: (XD::DOC:WEEKNUMBER "2017" "5" "2")<br /> 18<br /> 命令: (XD::DOC:WEEKNUMBER 2017 5 2)<br /> 18<br />

2017年5月2日是2017年的第18个星期

q3_2006

时间转换函数很需要

HLCAD

感谢版主分享代码！
能算出对应的阴历就好了

13993359550

谢谢分享  

434939575

谢谢老大分享！

819534890

谢谢分享~

wdmzslw

这个好，正要学习一下

winerfjy

谢谢楼主分享

sicky111

有用，谢谢分享。

bonny123

HLCAD 发表于 2017-5-2 17:19

这个倒是很有想法，，，，

ynhh

谢谢分享！
谢谢分享！谢谢分享！

defun

有用，谢谢分享。

1028882406@qq.c

谢谢楼主，学习下

flowerson

有可以转换成两个时间之间是差多少天吗？

zz159504

感谢版主分享代码！