一年的第几周怎么算_求当天是本月的第几周[ahk]

问题

在群里遇到一网友的问题：求当天是本月的第几周？用ＡＨＫ解决。

　　首先要确定“第几周”的含义，有以下几中：

1. 1-7号算第一周，其它类推；
2. 周日到周六算一周；
3. 周一到周日算一周。

问题的复杂在于，用2、3的标准来算，还要看每月1号到周末的几天，算不算一周？因为可能不满7天。

　　网友的标准是：4天以上算一周，3天以下不算。

　　归纳如下：

A. 周一开始到周六结束算一周；

B. 月初4天以上为第一周，3天以下为第0周。

比如下图中，1月的1-5号为第一周；3月，1号为第0周，2-8号为第一周。

准备

翻ahk帮助文档，没有找到直接解决此问题的命令或函数，但与解决问题有关的几个内置变量有：

A_YYYY（A_Year），四位数表示的当前年份（比如2020）；

　　A_MM（A_Mon），2 位数表示的当前月份(01-12) ；

　　A_DD（A_MDay），2 位数表示的当前月份的日期(01-31)；

　　A_WDay， 1 位数表示的当前星期经过的天数(1-7) ，1表示星期天；

　　A_Now，YYYYMMDDHH24MISS 格式的当前本地时间。

找思路

仔细观察上图，分析一下，可以得出：周数=本日所在行数 – 参数1。参数1按照规则B计算，比如1月为0，3月为1。几个变量分别定义为week_index、x、y。如下图。

那么，如何求x和y的值？

　　再观察思考，发现关键在:每月的1号是星期几（1-7，7为周日，用W1表示）。

蔡勒（Zeller）公式

蔡勒公式的形式如下：

　　其中：

　　w：星期；0为星期日

　　c：年份前两位；

　　y：年（后两位数）；某年的1、2月要再减1，比如2020年1月，取20-1=19

　　m：月（m大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2020年1月1日要看作2019年的13月1日来计算）；

　　d：日；这里为1

　　[ ]代表取整，即只要整数部分。

　　(C是世纪数减一，y是年份后两位，M是月份，d是日数。1月和2月要按上一年的13月和14月来算，这时C和y均按上一年取值。)

注意ｙ与ｍ的取值。

算出来的W除以7，余数是几就是星期几。如果余数是0，则为星期日。

以2049年10月1日（100周年国庆）为例，用蔡勒（Zeller）公式进行计算，过程如下：

蔡勒（Zeller）公式：Ｄ=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1

=49+[49/4]+[20/4]-2×20+[26× (10+1)/10]+1-1

=49+[12.25]+5-40+[28.6]

=49+12+5-40+28

=54

ｗ=mod(54,7)=5

即2049年10月1日（100周年国庆）是星期5。

需要注意的是，w可能为负数或0，0表示为星期日，负数需要取绝对值。

找出结题思路，编写代码如下：

ＡＨＫ代码

y0 := SubStr(A_YYYY, 3,2) ;年份后两位 y :=(A_MM>2) ? y0 : (y0-1) ;1、2月要再减1 c := SubStr(A_YYYY,1,2) ;年份前两位 m := (A_MM>2) ? A_MM : (A_MM+12) ;月份，1-2月加12 d := A_DD ;几号,1号为1 w := y + floor(y/4) + floor(c/4) - 2*c + floor(26*(m+1)/10) ;蔡勒（Zeller）公式算星期几，值可能为负数或0，0为星期日 w0 := mod(w,7) ;取值范围-6~6 w1 :=(w0=0) ? 7 : (abs(w0)) ;切换为1-7，表示星期一到星期日 ;用x表示当日在日历表中的行数 if (A_DD<=(8-w1)){ x:=1 } if( A_DD>=(9-w1) and A_DD<=(15-w1)){ x:=2 } if( A_DD>=(16-w1) and A_DD<=(22-w1)){ x:=3 } if( A_DD>=(23-w1) and A_DD<=(29-w1)){ x:=4 } if( A_DD>=(30-w1) and A_DD<=(36-w1)){ x:=5 } if( A_DD>=(37-w1)){ x:=6 } y0:=8-w1 ;月历第一行天数 y := (y0<4) ? 1 : 0 ;第一行天数是否小于4 week_index := x - y ;周数 MsgBox ,今天是%A_yyyy%年%A_MM%月%A_DD%日 `r是本月第%week_index%周