vba - Excel年周组合计算

Question

我目前正在制作一个 Excel 模型，其中日期是它的一个重要方面。但是，由于信息来自不同的来源，因此有时会以不现实的方式进行结构化。
添加或减去周数时，我在计算年和周组合时遇到问题。
开始数据如下所示:

yyyyww (example: 201525, year 2015 week 25)

现在，如果我想添加例如 3 周，我可以通过添加 3 来做到这一点，结果是 201528。但是，当涉及到 201552(有时是 yyyy53)时，我需要计算到 2016 年更困难。

回溯到 2014 年或更低的时间时，情况也是如此。有谁知道或对此有解决方案？也许在VBA中？还是公式技巧？

Answer 1

将 1 添加到您的周数格式的公式如下所示:

=YEAR(DATE(LEFT(A2, 4), 1, 1) + MID(A2, 5, 2) * 7) * 100 +
 WEEKNUM(DATE(LEFT(A2, 4), 1, 1) + MID(A2, 5, 2) * 7)

它将创建一个周数序列，其中包括: 201452 => 201453 => 201502

LEFT(A2, 4)和 MID(A2, 5, 2)提取年和周分量

date(year, 1, 1) + (week - 1) * 7将其转换为实际的 Excel 日期值，例如201502 => 2015-01-08

date(year, 1, 1) + week * 7将创建一个比“当前”日期晚 1 周的日期

year(date) * 100 + weeknum(date)将该日期转换回 yyyyww格式