Excel - 將周日開始日期作為公式

Question

我將此功能保存為宏：

Function getWeekdayStartDate(ActualDate As Date) As Date
    Dim WeekdayStartDate As Date
    WeekdayStartDate = DateValue(DateAdd("d", -Weekday(ActualDate, vbFriday) + 1, ActualDate))
    getWeekdayStartDate = WeekdayStartDate
End Function

它給了我一個日期，這是會計期間的第一天。
本周的第一天不是星期一，星期五。

我試過這些公式：

=DATE(2016; 6; 1)-WEEKDAY(DATE(2016; 6; 1)-6)
=DATE(2016;6;24)+1-WEEKDAY(DATE(2016;6;24);15)

得到這個日期，但沒有運氣。

有關如何將此功能轉換為excel公式的任何想法？

Answer 1

如果你只是希望你的公式得到星期五最接近指定日期的日期（但總是在之前），那么你幾乎用你的第二個公式得到它，你只需要在公式的第二部分加1：

=DATE(2016;6;24)+1-WEEKDAY(DATE(2016;6;24)+1;16)

Answer 2

WORKDAY.INTL（Start_date，Days，Optional Weekend，Optional Holidays）與標准WORKDAY（Start_date，Days，Optional Holidays）的不同之處在於，您可以指定不同的周末日， 包括反映自定義工作周的字符串 。

在B2中使用

=WORKDAY.INTL(A2,1,"1111011")

A2有日期，1下周五返回，-1返回上周五。 在1111011字符串中，1表示從星期一開始的非工作日，而0表示工作日 - 在本例中為星期五。