次の方法で共有

DatePart 関数

  • [アーティクル]

警告

この関数の使用に問題があります。 一部の暦年の最後の月曜日は、週 1 である必要がある週 53 として返すことができます。 詳細と回避策については、「 Format または DatePart 関数は、昨年の最後の月曜日に間違った週番号を返す可能性がある」を参照してください。 日付の指定した部分を含む Variant (Integer) を返します。

構文

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

DatePart 関数の構文には、次の名前付き引数があります。

指定項目 説明
interval 必須。 戻す時間のサイクル間隔の 文字列式です。
date 必須。 評価する Variant (Date) の値です。
firstdayofweek 省略可能。 週の始まりの曜日を表す定数です。 省略すると、日曜日を指定したものと見なされます。
firstweekofyear 省略可能。 年の第 1 週を指定する定数です。 省略すると、1 月 1 日を含む週が第 1 週と見なされます。

設定

interval引数には、次の設定があります。

設定 説明
yyyy 年
q 四半期
m 月
y 通年での日数
d 日
w 平日
ww 週
h 時
n 分
s 秒

firstdayofweek 引数の設定は次のとおりです。

定数 値 説明
vbUseSystem 0 NLS API 設定を使用します。
vbSunday 1 日曜日 (既定)
vbMonday 2 月曜日
vbTuesday 3 火曜日
vbWednesday 4 水曜日
vbThursday 5 木曜日
vbFriday 6 金曜日
vbSaturday 7 土曜日

firstweekofyear 引数の設定は次のとおりです。

定数 値 説明
vbUseSystem 0 NLS API 設定を使用します。
vbFirstJan1 1 1 月 1 日が含まれる週から開始します (既定)。
vbFirstFourDays 2 新年で少なくとも 4 日ある最初の週から開始します。
vbFirstFullWeek 3 年の最初の完全な週から開始します。

解説

DatePart 関数を使用して日付を評価し、特定の時間間隔を返します。 たとえば、曜日または現在の時間を計算するために、DatePart を使用する場合があります。

firstdayofweek 引数は、"w" および "ww" の間隔記号を使用する計算に影響します。

date が日付リテラルの場合、指定した年はその日付の一部として恒久的に保存されます。 ただし、date が二重引用符 (" ") で囲まれていて、年を省略した場合、date の式が評価されるたびに、現在の年がコードに挿入されます。 これにより、別の年でも使用できるコードを記述することができます。

注:

Calendar プロパティの設定がグレゴリオ暦の場合、date にはグレゴリオ暦の日付を指定する必要があります。 カレンダーがイスラム暦の場合は、イスラム暦で日付を指定する必要があります。

戻された日付の部分は、現在のアラビア歴の期間の単位になります。 たとえば、現在のカレンダーがイスラム暦で、戻された日付の部分が年の場合、年の値はイスラム暦年になります。

例

この例では、DatePart 関数を使用して日付を取得し、その日付が含まれる四半期が表示されます。

Dim TheDate As Date    ' Declare variables.
Dim Msg    
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

Format 関数または DatePart 関数は、昨年の最後の月曜日に間違った週番号を返す可能性があります