VBA関数のDatePart関数

DatePart関数は、VBA関数の中で日付・時刻関数に分類される関数です。

目次

• DatePart関数とは
• DatePart関数のサンプルコード
  • 実行結果
  • 解説

DatePart関数とは

DatePart関数は、日付の指定した部分を含むバリアント型 (内部処理形式 Integer の Variant) の値を返します。

引数interval

引数firstdayofweek

引数firstweekofyear

DatePart 関数を使うと、日付を評価し、特定の時間間隔部分を取得できます。たとえば、週日や現在の時刻などを計算できます。名前付き引数 firstdayofweek は、名前付き引数 interval に週 ("ww") を指定した場合の計算値に影響します。

名前付き引数 date に日付リテラルを指定した場合、指定した年が日付の固定部分となります。ただし、名前付き引数 date をダブル クォーテーション (" ") で囲み、年を省略すると、名前付き引数 date の式が評価されるたびにコードに現在の年が挿入されます。これを利用すると、異なる年度で使用できるコードを記述することが可能になります。

Calendar プロパティの設定がグレゴリオ暦の場合、引数 date にはグレゴリオ暦で表される日付を指定する必要があります。Calendar プロパティの設定が回教暦の場合、引数 date には回教暦で表される日付を指定する必要があります。

返される日付の部分は、現在のアラビア暦の時間間隔の単位で返されます。たとえば、現在のカレンダーが回教暦で、返される日付の部分が年の場合、その年の値は回教暦の年になります。

DatePart関数のサンプルコード

次の例は、ユーザーに日付の入力を求めた後、DatePart 関数を使って、その日付が四半期のうちのどの期に当たるかを調べます。

Sub sample()

 Dim TheDate As Date            ' 変数を宣言します。
 Dim Msg    
 TheDate = InputBox("日付を入力してください。")
 Msg = "第 " & DatePart("q", TheDate) & " 四半期"
 MsgBox Msg

End Sub

実行結果

解説

日付・時刻関数一覧