【VBA】指定日付が含まれる週の月曜日～土曜日を取得

今回は指定日付の週の月曜日を求めます。

現在日までの今週の売上などを集計したい場合に使えます。

使用する関数

使う関数は、Weekday()です。

Weekday()関数の仕様は以下の通りです。

引き数として指定した「週の基準」による各曜日の戻り値は以下のとおりです。

※その他の「週の基準」もありますが代表的なもののみ掲載しています。

指定日付が含まれる週の月曜日～土曜日を取得する手順

まずは、指定日の曜日を求めます。週の基準を月曜日（０）スタートにした方がわかりやすいので、今回は週の基準を３にします。

weekday(指定日, 3)

指定日から曜日を引くと月曜日の日付が取得できます。

解説：指定日から取得した曜日を引くと月曜日の日付になります。

１週間分の売上を求める場合などは、取得した週始めの日付と取得した週始めの日付に６を加算した日付範囲を条件にデータ集計をすると求められます。

VBAの関数で処理する場合

関数を作りました。

'------------------------------------------------------------
' 処理内容:指定日が含まれる週の月曜日・土曜日の日付を求める
' 引数:指定日/月曜日(Ref)/土曜日(Ref)
' 戻り値:True,False
' 更新：
'------------------------------------------------------------
Private Function getWeekday(指定日 As Date, ByRef wk月曜日 As Date, ByRef wk土曜日 As Date) As Boolean

'戻り値初期化
getWeekday = False

'指定日がNullならｴﾗｰ
If IsNull(指定日) Then
    MsgBox "日付が指定されていません。", vbOKOnly + vbCritical, "Error"
    Exit Function
End If

wk月曜日 = 指定日 - Weekday(指定日, 3)
wk土曜日 = wk月曜日 + 5


'正常終了
getWeekday = True


End Function

クエリーで処理する場合

これは、売上日が今週の月曜日から今日までのデータを抽出するための条件指定です。

先の関数と同じように指定日の月曜日から土曜日を指定する場合は以下のようになります。

Between [指定日]-weekday([指定日],3) and [指定日]-weekday([指定日],3)+5