excel中的日期逻辑[关闭]

Question

我正在尝试创建一个自动电子表格，该电子表格将每周更改日期，但也会提前 2 周。

因此，它是教师可以预订房间的时间表。在顶部，它显示他们预订的星期几，例如它会说 从 2015 年 3 月 30 日开始的一周，在其他工作表上它在前几周的时间上增加 7 天，以便在其他工作表上显示提前 2 周

我想创建一些逻辑，以便当第 1 周结束时，id 有一个日期变量来检查第 1 周是否结束，然后将第 1 周设置为第 3 周后的第 7 天，但使用我当前的设置然后将第 2 周和第 3 周推前一周，这是我不想要的

你能帮我弄清楚需要什么样的逻辑才能让它工作吗？

Sub SetDate()
Dim Week1 As Date
Dim Week2 As Date
Dim Week3 As Date
Dim Week4 As Date


Week1 = DateValue("30 / 3 / 2015")
Week2 = DateAdd("d", 7, Week1)
Week3 = DateAdd("d", 7, Week2)
Week4 = DateAdd("d", 7, Week3)

Worksheets("Week1").Range("B4").Value = Week1
Worksheets("Week2").Range("B4").Value = Week2
Worksheets("Week3").Range("B4").Value = Week3

End Sub

Answer 1

我不确定我是否正确理解了这个问题，但也许是这样的？

基本上，我们使用您的原始日期设置日期，然后检查是否有任何日期在该时间之前 - 如果是，我们将其递增并再次检查。那样的话，如果我们需要循环几个星期，它会一直循环直到它们都是最新的？

请试一试，如果这不是您需要的，请告诉我，我会帮助您解决问题。

我通过将日期设置为 2015 年 3 月 30 日、2015 年 4 月 6 日和 2015 年 4 月 13 日来测试它

第 1 周变为 2015 年 4 月 20 日，其他时间保持不变（我相信这是预期的）。如果我们回滚几周以使 2 过去（实际上不应该发生），您将获得相同的日期偏移 - 只是所有未来的。

Sub SetDate()
Dim Week1 As Date
Dim Week2 As Date
Dim Week3 As Date
Dim Week4 As Date

Week1 = Worksheets("Week1").Range("B4").Value
Week2 = Worksheets("Week2").Range("B4").Value
Week3 = Worksheets("Week3").Range("B4").Value

Dim FoundOldDate

Do
FoundOldDate = False
If Week1 - Date < 0 Then
    Week1 = DateAdd("d", 7, Week3)
    FoundOldDate = True
End If
If Week2 - Date < 0 Then
    Week2 = DateAdd("d", 7, Week1)
    FoundOldDate = True
End If
If Week3 - Date < 0 Then
    Week3 = DateAdd("d", 7, Week2)
    FoundOldDate = True
End If
Loop While FoundOldDate

Worksheets("Week1").Range("B4").Value = Week1
Worksheets("Week2").Range("B4").Value = Week2
Worksheets("Week3").Range("B4").Value = Week3

End Sub