vba - 如何从给定日期找到一周的开始日期？

Question

我担心的是我想从给定日期检索一周的开始日期，例如:15/04/2015 所以一周的开始将是:13/04/2015(对我来说，一周的开始是周一)。

谢谢

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