DatePart 関数
警告
この関数の使用に問題があります。 一部の暦年の最後の月曜日は、週 1 である必要がある週 53 として返すことができます。 詳細と回避策については、「 Format または DatePart 関数は、昨年の最後の月曜日に間違った週番号を返す可能性がある」を参照してください。 日付の指定した部分を含む Variant (Integer) を返します。
構文
DatePart(interval, date, [ firstdayofweek, [ firstweekofyear ]])
DatePart 関数の構文には、次の名前付き引数があります。
指定項目 | 説明 |
---|---|
interval | 必須。 戻す時間のサイクル間隔の 文字列式です。 |
date | 必須。 評価する Variant (Date) の値です。 |
firstdayofweek | 省略可能。 週の始まりの曜日を表す定数です。 省略すると、日曜日を指定したものと見なされます。 |
firstweekofyear | 省略可能。 年の第 1 週を指定する定数です。 省略すると、1 月 1 日を含む週が第 1 週と見なされます。 |
設定
interval引数には、次の設定があります。
Setting | 説明 |
---|---|
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 のサポートおよびフィードバックを参照してください。