获取今日日期季度的第一个星期五

Question

我试图获取今天日期或任何给定日期的季度的第一个星期五。假设日期为2020年6月12日，即该年的第二季度。我应该能够得到第二季度的第一个星期五，那应该是4月3日。

我只能得到给定日期的四分之一，您可以在下面的代码中看到。在这里停留了一段时间。预先感谢。

quarter = Int((Month(Now) + 2) / 3)

Answer 1

这是一个获取日期并返回季度的第一个星期五的函数：

df.map(dic)

此函数利用Function FirstFridayOfTheQuarter(MyDate As Date) As Date Dim FirstDayOfTheQuarter As Date FirstDayOfTheQuarter = DateSerial(Year(MyDate), Int((Month(MyDate) - 1) / 3) * 3 + 1, 1) FirstFridayOfTheQuarter = DateAdd("d", (13 - Weekday(FirstDayOfTheQuarter)) Mod 7, FirstDayOfTheQuarter) End Function 函数的优点，该函数返回：

Weekday

Answer 2

如果您需要非VBA解决方案：

我的公式是：

=CEILING(EOMONTH(DATE(YEAR(A1);ROUNDUP(MONTH(A1)/3;0)+(ROUNDUP(MONTH(A1)/3;0)-1)*2;1);-1)-5;7)+6