求当天是本月的第几周

问题

在群里遇到一网友的问题：求当天是本月的第几周？用ＡＨＫ解决。
　　首先要确定“第几周”的含义，有以下几中：

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表示）。

问题转为求1号是星期几。
这个问题可以用蔡勒（Zeller）公式解决。

蔡勒（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%周

当然，代码还可以精简一下，但是就不容易理解了

修改记录：
2020-4-1，对泰勒公式得到负数情况下的理解有误，改正。对y0取值有误，改正。