Excel 租赁日期-每个季度应为90天，但年终应为365/366天

我有多个租约，其中我有开始日期和到期日期，我希望获得开始日期和到期日期之间的季度日期，条件是每个季度（第一季度、第二季度、第三季度）应为90天，但第四季度应为开始日期后365或366天

我附上了两个租赁的截图，是否有任何excel公式或VBA来获得这个理想的结果

任何帮助都将不胜感激

谢谢

---

aleem

期望的结果是完美的，但是，我请求excel专家看看是否有更好的方法可用

Sub qtrcalc()

Dim StartDate As Date
Dim EndDate As Date
Dim z As Integer
Dim ldate As Date
Dim x As Integer
Dim k As Integer
Dim Ydate As Date

StartDate = Range("c1")
EndDate = Range("c2")


z = DateDiff("q", StartDate, EndDate) '+ 1 ' for begining of the month date

ldate = DateAdd("d", 90, StartDate) 'for the end date based on freq

            Range("c27").Value = ldate

Range("c27").Value = StartDate


For x = 28 To 28 + z - 2

    Cells(x, 3).Value = DateAdd("d", 90, StartDate)

        Ydate = Range("c1").Value
        For k = 31 To 31 + z - 5 Step 4
        Cells(k, 3).Value = DateAdd("yyyy", 1, Ydate)
        Ydate = Cells(k, 3)
        Next k

    StartDate = Cells(x, 3)


Next x


End Sub

---

你的要求似乎很奇怪。第一季度为1月1日至3月31日，不包含确切的90天。从4月1日到6月30日也没有。使用适当的季度周期会使你的要求完全不必要。你为什么把这件事复杂化了？肯，如果你没有正确理解，我道歉，在我的例子1中。租赁开始日期为2017年10月2日，第一季度日期为自2017年10月2日起90天，即2017年12月31日，同样，如果您将2017年12月31日加上90天，则将得到2018年3月31日，依此类推。同样的逻辑也适用于第二个例子。