DatePart 関数は指定した日付の同一年における時間間隔を整数値で返します。時間間隔の単位は引数で指定することができます。
DatePart関数の使用方法
構文
DatePart(Interval , Date [, FirstDayOfWeek] [, FirstWeekOfYear]) 【戻り値】 バリアント型 (内部処理形式 Integer の Variant)
| 設定値 | 説明 |
|---|---|
| yyyy | 年 |
| q | 四半期 |
| m | 月 |
| y | 年間通算日 |
| d | 日 |
| w | 週日 |
| ww | 週 |
| h | 時 |
| n | 分 |
| s | 秒 |
| 定数 | 値 | 説明 |
|---|---|---|
| vbUseSystem | 0 | NLS API の設定値を使用します。 |
| vbSunday | 1 | (既定値) 日曜 |
| vbMonday | 2 | 月曜 |
| vbTuesday | 3 | 火曜 |
| vbWednesday | 4 | 水曜 |
| vbThursday | 5 | 木曜 |
| vbFriday | 6 | 金曜 |
| vbSaturday | 7 | 土曜 |
| 定数 | 値 | 説明 |
|---|---|---|
| vbUseSystem | 0 | NLS API の設定値を使用します。 |
| vbFirstJan1 | 1 | (既定値) 1 月 1 日を含む週から始まります。 |
| vbFirstFourDays | 2 | 年の 4 日以上が含まれる最初の週から始まります。 |
| vbFirstFullWeek | 3 | 年のうち、7 日が含まれる最初の週から始まります。 |
DatePart関数の使用例
ある日付における、四半期、通算日、週を取得する例です。
Sub sample_ef038_01()
Dim wDate As Date
wDate = DateSerial(2013, 4, 1)
Debug.Print "対象日：" & wDate
Debug.Print "四半期：" & DatePart("q", wDate)
Debug.Print "通算日：" & DatePart("y", wDate)
Debug.Print "週 ：" & DatePart("ww", wDate)
End Sub