DatePart 関数
DatePart(syrInterval, varDate [, firstdayofweek, firstweekofyear])
指定された日付の一部分を返します。
引数
- syrInterval
- 時間間隔の単位を表す文字列式を指定します。
設定値 内容 yyyy 年 q 四半期 m 月 y 年間通算日 d 日 w 週日 ww 週 h 時 n 分 s 秒 - varDate
- 評価する日付式を指定します。
- firstdayofweek
- 省略可能です。
週の始まりの曜日を表す定数を指定します。省略すると、日曜日が指定されます。
定数 値 内容 vbUseSystemDayOfWeek 0 各国語対応 (NLS) API の設定値を使用します。 vbSunday 1 日曜 vbMonday 2 月曜 vbTuesday 3 火曜 vbWednesday 4 水曜 vbThursday 5 木曜 vbFriday 6 金曜 vbSaturday 7 土曜 - firstweekofyear
- 省略可能です。
年度の第 1 週を表す定数を指定します。省略すると、1 月 1 日を含む週が第 1 週と指定されます。
定数 値 内容 vbUseSystem 0 各国語対応 (NLS) API の設定値を使用します。 vbFirstJan1 1 (既定値) 1 月 1 日を含む週を年度の第 1 週として扱います。 vbFirstFourDays 2 7 日のうち少なくとも 4 日が新年度に含まれる週を年度の第 1 週として扱います。 vbFirstFullWeek 3 全体が新年度に含まれる最初の週を年度の第 1 週として扱います。
使用例
次のコードは、DatePart 関数を使って日付を取得し、その四半期を表示します。
Function GetQuarter(TheDate)
GetQuarter = DatePart("q", TheDate)
End Function
解説
DatePart 関数を使うと、日付を評価し、特定の時間間隔部分を取得できます。たとえば、週日や現在の時刻などを計算できます。
引数 firstdayofweek は、引数 interval に週 ("w" および "ww") を指定した場合の計算値に影響します。
引数 date に日付リテラルを指定した場合、指定した年が日付の固定部分となります。ただし、引数 date をダブル クォーテーション (") で囲み、年を省略すると、引数 date の式が評価されるたびにコードに現在の年が挿入されます。これを利用すると、異なる年度で使用できるコードを記述することが可能になります。
