VBA 時間間隔を取得するDatePart関数

スポンサーリンク

DatePart 【デイトパート】関数

指定した日付の同一年における時間間隔を整数値で取得するには、DatePart 【デイトパート】関数を使用します。時間間隔の単位は引数で指定することができます。

DatePart 【デイトパート】関数の書式と引数の説明

[]内は省略可能です。
DatePart (Interval , Date [, FirstDayOfWeek] [, FirstWeekOfYear])

  • Interval【インターバル】(必須)
    時間間隔の単位を表す定数を文字列式で指定します。

    引数 Interval に指定可能な定数一覧表
    設定値内容
    yyyy
    q四半期
    m
    y年間通算日
    d
    w週日
    ww
    h
    n
    s
  • Date【デイト】(必須)
    定時間間隔を取得したい日付や日付式を指定します。
  • FirstDayOfWeek【ファーストデイオフウィーク】(省略可)
    週の始まりの曜日を表す定数を指定します。省略した場合は、日曜日からになります。

    引数 FirstDayOfWeek に指定可能な定数一覧表<
    定数内容
    vbUseSystem【ブイビーユーザーシステム】0各国語対応APIの設定値を使用
    vbSunday【ブイビイサンディ】1日曜日(既定値)
    vbMonday【ブイビイマンディ】2月曜日
    vbTuesday【ブイビイテュースディ】3火曜日
    vbWednesday【ブイビイウィインズディ】4水曜日
    vbThursday【ブイビイテュスディ】5木曜日
    vbFriday【ブイビイフライディ】6金曜日
    vbSaturday【ブイビイサタディ】7土曜日
  • FirstWeekOfYear【ファーストウィークオフイヤー】(省略可)
    年度の第 1 週を表す定数を指定します。省略した場合は、1 月 1 日を含む週が第 1 週になります。

    引数 FirstWeekOfYear に指定可能な定数一覧表
    定数内容
    vbUseSystem
    【ブイビーユーザーシステム】
    0各国語対応APIの設定値を使用
    vbFirstJan1
    【ブイビイジャニアリーワン】
    11 月 1 日を含む週を第1週とします。(既定値)
    vbFirstFourDays
    【ブイビイフォアディイズ】
    2週の 4 日以上が含まれる最初の週を第1週とします。
    vbFirstFullWeek
    【ブイビイファーストフルウィーク】
    3週の7 日が含まれる最初の週を第一週とします。

1月1日から本日までの経過を表示するコード例

Sub 経過()
MsgBox ("本日:" & Date & vbCrLf & _
"1月1日からの経過" & vbCrLf & _
"四半期:第" & DatePart("q", Date) & "四半期" & vbCrLf & _
"経過月:" & DatePart("m", Date) & "ヶ月" & DatePart("d", Date) & "日" & vbCrLf & _
"通算日:" & DatePart("y", Date) & "日" & vbCrLf & _
"週:" & DatePart("ww", Date) & "週目")
End Sub

実行結果


以上で、DatePart【デイトパート】関数についての解説を終了します。
ありがとうございました。

日付・時刻関数一覧表

日付や時刻の関数一覧表です。
関数名がリンクになっています。
クリックすると詳細説明ページが開きます。
関数名説明
Date現在の「日付」を取得します。
Year日付から「年」を取得します。
Month日付から「月」を取得します。
Day日付から「日」を取得します。
DatePart年・月・日を部分的に取得します。
Now現在の「日時」を取得します。
Time現在の「時刻」を取得します。
Hour時刻の「時」を取得します。
Minute時刻の「分」を取得します。
Second時刻の「秒」を取得します。
Weekday曜日を表す「整数値」を取得します。
WeekdayName曜日を表す整数値を「曜日名」に変換します。
DateSerial年・月・日を表す整数値から日付データに変換します。
TimeSerial時・分・秒を表す整数値から時刻データに変換します。
DateDiff日付や時間の間隔を計算します。
DateAdd時間を加算または減算した日付や時刻を取得します。
Timer経過した秒数を取得します。
CDateデータ型を日付型に変換します。
IsDate日付や時刻として扱えるかを調べます。
DDateValueateValue日付を表す文字列式を日付型(Date)に変換します。
TimeValueTimeValue時刻を表す文字列式を日付型(Date)に変換します。

スポンサーリンク

関連記事・広告