VBA自适应多种排班计划日期填充

最新推荐文章于 2025-03-12 09:11:30 发布

taller_2000

最新推荐文章于 2025-03-12 09:11:30 发布

阅读量857

点赞数 4

分类专栏：数据清洗数组 VBA 文章标签：排班计划补充日期计算星期日期缺失填补日期

本文链接：https://blog.csdn.net/taller_2000/article/details/136494159

版权

实例需求：某公司有两种不同排班计划

但是数据表中有时会缺少部分日期，为了便于汇总多个部分的数据，现在需要将日期补全，对于补充的日期标记为黄色。

在这里插入图片描述

先讨论一些如何计算不同排班计划中的下一个有效时间。

使用Weekday函数可以返回代表星期x的数字，这个函数支持多种方案，例如：周一开始，周日开始等等。本代码使用周一作为日历周的开始日，即：周一至周日，返回值为1~7。
下表中“日期间隔”列统计每个日期和之前相邻日期的间隔天数，可以看出两种排班计划都是按2-2-3的模式再重复。
对于TTS排班，除了周二之外，weekday 返回值是日期间隔的两倍
对于MWF排班，只需要将 weekday 返回值加一，就可用按照TTS排班处理