本日（対象日）が年初から数えて何週目にあたるかを調べる方法を紹介します。
構文
記述方法は以下の通りとなります。
DatePart（”［時間間隔の単位］”，［評価の対象となる日付］）
[説明]：
指定した対象日を起点に指定した時間の間隔を数字で返します。
[記述例]：
MsgBox DatePart("ww", Date)
使い方
使い方について具体的に説明します。
[プログラミング例]：
Sub サンプル()
MsgBox DatePart("ww", Date)
End Sub
今回は本日が年初から数えて何週目にあたるかを算出するため、［時間間隔の単位］に「WW」を指定します。WWは起点とする日付をもとに年初から数えて何週目にあたるかを数値で返します。また、［評価の対象となる日付］には本日の日付である引数「Date」を指定する事で、本日と年初日の時間間隔を算出します。結果「本日が年初から数えて何週目にあたるかをMsgBoxで表示して下さい。」との意味になります。
※上記の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]：
①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。（※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。）
②結果は以下の様に表示されます。本日が2021/4/20となり年初から17週目にあたるため、MsgBoxで「17」が表示されます。
[サンプル]：
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
年初から数えて何週目にあたるかを調査する方法についての説明は以上です。
プログラミング（サンプル）
プログラミング事例を紹介します。
おわりに
今回は本日が年初から数えて何週目にあたるかを調べる方法について説明しました。類似した内容に年間通算日を調べる方法があります。こちらも一緒に覚えておいて下さい。