如何实现与Power Query Date.WeekOfMonth逻辑一致的1-6区间当月周数计算

计算当月周数存在多种不同方案，目前已有资料多涉及1:4和/或1:5范围的计算逻辑，1:6范围的相关实现资料极少。

我正在处理Excel中数据源来自Power Query的数据透视表，Power Query中的Date.WeekOfMonth函数接收日期后会返回1到6之间的周数，该规则定义周从周日开始、周六结束。例如2021年10月的前两天（周五、周六）属于10月第1周，2021年10月3日起进入第2周，2021年10月最后一天即10月31日是第6周的唯一天。

我手头有一项自动化任务，需要从Power Query生成的透视表中拉取数据，因此需要在VBA中实现遵循相同周数计算规则的代码。我没有找到现成的代码片段，自己实现后打算分享出来，欢迎大家提出意见和建议。

内容的提问来源于stack exchange，提问作者Mohammad Amin Takroosta