（XD::Time:Weeknumber）判断具体日期是当年的第几个星期

newer · 发表于 2017-7-28 15:13:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::Time:Weeknumber (y m d / q weekday)
(if (= (type y) 'str)
(setq y (atoi y))
)
(if (= (type m) 'str)
(setq m (atoi m))
)
(if (= (type d) 'str)
(setq d (atoi d))
)
(setq weekday (XD::Time:weekday y m d))
(if (= weekday 0)
(setq weekday 6)
(setq weekday (1- weekday))
)
((lambda (q)
(cond
((< q 1)
(XD::Time:weeknumber (1- y) 12 28)
)
((and
(< 28 d)
(< 51 q)
(< (XD::Time:weeknumber y 12 28) q)
)
1
)
(q)
)
)
(/ (+ (nth m '(0 0 31 59 90 120 151 181 212 243 273 304 334))
(if (and
(XD::Time:leapyear-p y)
(< 2 m)
)
1
0
) (- weekday) 9 d
) 7
)
)
)

(defun XD::Time:Weeknumber (y m d / q weekday) 
  (if (= (type y) 'str) 
    (setq y (atoi y)) 
  ) 
  (if (= (type m) 'str) 
    (setq m (atoi m)) 
  ) 
  (if (= (type d) 'str) 
    (setq d (atoi d)) 
  ) 
  (setq weekday (XD::Time:weekday y m d)) 
  (if (= weekday 0) 
    (setq weekday 6) 
    (setq weekday (1- weekday)) 
  ) 
  ((lambda (q) 
     (cond 
       ((< q 1) 
         (XD::Time:weeknumber (1- y) 12 28) 
       ) 
       ((and 
          (< 28 d) 
          (< 51 q) 
          (< (XD::Time:weeknumber y 12 28) q) 
        ) 
         1 
       ) 
       (q) 
     ) 
   ) 
   (/ (+ (nth m '(0 0 31 59 90 120 151 181 212 243 273 304 334)) 
         (if (and 
               (XD::Time:leapyear-p y) 
               (< 2 m) 
             ) 
           1 
           0 
         ) (- weekday) 9 d 
      ) 7 
   ) 
  ) 
)

命令: (XD::DOC:WEEKNUMBER "2017" "5" "2")
18
命令: (XD::DOC:WEEKNUMBER 2017 5 2)
18

复制代码

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

红糖∠※豆浆 · 发表于 2018-1-30 09:43:02

顶起来来来都顶起来

fl502 · 发表于 2018-1-30 16:44:34

参数说明处有错误，应该是年月日

账号		自动登录	找回密码
密码			立即注册

[时间] （XD::Time:Weeknumber）判断具体日期是当年的第几个星期

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。