[求助]如何取得一个星期是一年当中的第几周?!

jaminth

如何取得一个星期是一年当中的第几周?!

ZZXXQQ

是一年当中的某一天在那年中的第几周吧？
如果是：计算方法如下：
算出那天到当年1月1日的日子数；
第几周=日子数整除7加1

nonsmall

方法1：

(defun getweek(date)
 (setq date (strcat (substr date 1 4) "-" (substr date 5 2) "-" (substr date 7 2)))
 (vla-eval (vlax-get-acad-object) (strcat "ThisDrawing.SetVariable \"users1\", Format(" (vl-prin1-to-string date) ", \"ww\" , vbMonday)"))
 (getvar "users1")
)

命令: (getweek "20090222")
"8"
命令: (getweek "20090120")
"4"
命令: (getweek "20090920")
"38"
命令: (getweek "20090620")
"25"
命令: (getweek "20090101")
"1"

jxphklibin

方法1：

那么

方法2：？？？？

highflybir

方法2估计就是用vbs了。