如何查找給定日期的開始日期？

Question

我擔心的是，我希望從給定日期檢索一周的開始日期，例如：2015年4月15日所以本周的開頭將：2015年4月13日（對我來說，本周的開始是星期一）。

謝謝

Answer 1

試試這個 ：-）

Dim FirstDayInWeek, LastDayInWeek  As Variant
Dim dtmDate As Date
dtmDate = "15/04/2015"

一周的開始日期：

FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 1
MsgBox FirstDayInWeek

周結束日期

LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 7
MsgBox LastDayInWeek

Answer 2

試試這個公式： -

=A1-WEEKDAY(A1,2)+1

A1包含您的輸入日期。