DatePart関数を使用したプログラミング例を紹介します。
例題
A列に入力されている月日についてDatePart関数を使用し、年末までの残日数をB列に表示するプログラミング方法です。
[実行前]：
[実行後]：
プログラミング
プログラミングは以下の通りとなります。
[記述例]：
Sub サンプル()
'↓処理①
Dim 行 As Long
Dim 経過日数 As Long
'↓処理②
For 行 = 2 To 7
経過日数 = DatePart("y", Range("A" & 行))
Range("B" & 行) = "年末まで残り" & 365 - 経過日数 & "日です。"
Next
End Sub
処理①：変数定義
変数を定義します。
処理②：繰り返し処理
For～Next文を使用した2行目～7行目までの繰り返し処理を実施します。繰り返し処理の中で、DatePart関数を使用して月日欄（A列）に入力されている月日について、年始からの経過日数を調べます。また、調べた経過日数を年間日数（365日）より引き算（365 - 経過日数）して年末までの残日数を算出します。算出した残日数は「年末まで残り○○日です。」として結果欄（B列）に表示します。
との内容になります。
ダウンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。