如何查找给定日期的开始日期？

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包含您的输入日期。