Vba-datepart-function

VBA-DatePart関数

指定された日付の特定の部分を返す関数。

構文

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

パラメータ説明

• 間隔-必須パラメーター。 次の値を取ることができます。
• d-年の日。
• m-年の月
• y-年
• yyyy-年
• w-平日
• ww-週
• q-四半期
• 時間-時間
• n-分
• s-秒
• Date1 -必須パラメーター。
• Firstdayofweek -オプションのパラメーター。 週の最初の日を指定します。 次の値を取ることができます。
• 0 = vbUseSystemDayOfWeek-各国語サポート（NLS）API設定を使用
• 1 = vbSunday-日曜日
• 2 = vbMonday-月曜日
• 3 = vbTuesday-火曜日
• 4 = vbWednesday-水曜日
• 5 = vbThursday-木曜日
• 6 = vbFriday-金曜日
• 7 = vbSaturday-土曜日
• Firstdayofyear -オプションのパラメーター。 年の最初の日を指定します。 次の値を取ることができます。
• 0 = vbUseSystem-各国語サポート（NLS）API設定を使用
• 1 = vbFirstJan1-1月1日が発生する週から開始します（デフォルト）
• 2 = vbFirstFourDays-新しい年に少なくとも4日ある週から開始する
• 3 = vbFirstFullWeek-新年の最初の完全な週から開始

例

ボタンを追加し、次の関数を追加します。

Private Sub Constant_demo_Click()
   Dim Quarter as Variant
   Dim DayOfYear as Variant
   Dim WeekOfYear as Variant

   Date1 = "2013-01-15"
   Quarter    = DatePart("q", Date1)

   msgbox("Line 1 : " & Quarter)
   DayOfYear  = DatePart("y", Date1)

   msgbox("Line 2 : " & DayOfYear)
   WeekOfYear = DatePart("ww", Date1)

   msgbox("Line 3 : " & WeekOfYear)
   msgbox("Line 4 : " & DatePart("m",Date1))
End Sub

上記の関数を実行すると、次の出力が生成されます。

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1