前週の最初と最後の日を取得する

Question

先週の最初と最後の日に誰かがコードを提供できますか？

ありがとうございます。

Answer 1

あなたは、これらの機能を使用することができます。

Public Function DateWeekFirst(_ 
    ByVal datDate As Date, _ 
    Optional ByVal lngFirstDayOfWeek As VbDayOfWeek = vbUseSystemDayOfWeek) _ 
    As Date 

' Returns the first date of the week of datDate. 
' lngFirstDayOfWeek defines the first weekday of the week. 
' 2000-09-07. Cactus Data ApS. 
' 2003-05-01. System settings used as default. 
' 2012-10-44. Data type of lngFirstDayOfWeek changed to VbDayOfWeek. 

    DateWeekFirst = DateAdd("d", vbSunday - Weekday(datDate, lngFirstDayOfWeek), datDate) 

End Function 

Public Function DateWeekLast(_ 
    ByVal datDate As Date, _ 
    Optional ByVal lngFirstDayOfWeek As Long = vbUseSystemDayOfWeek) _ 
    As Date 

' Returns the last date of the week of datDate. 
' lngFirstDayOfWeek defines the first weekday of the week. 
' 2000-09-07. Cactus Data ApS. 
' 2003-05-01. System settings used as default. 
' 2012-10-44. Data type of lngFirstDayOfWeek changed to VbDayOfWeek. 

    DateWeekLast = DateAdd("d", vbSaturday - Weekday(datDate, lngFirstDayOfWeek), datDate) 

End Function 

そして、例えば：

FirstDatePreviousWeek = DateWeekFirst(DateAdd("ww", -1, Date))