DatePart関数

与えられた日付の指定された部分を戻します。

構文

DatePart(interval, date)

引数:

• Interval: 必須。戻す時間間隔を表す文字列式。値については「設定」の項を参照してください。
• Date: 必須。評価する日付式。

設定: interval引数には次の値を指定できます:

サポートされている日付フォーマット:

• MM-DD-YYYY
• MM/DD/YYYY
• DD-MM-YYYY
• DD/MM/YYYY
• YYYY-MM-DD
• YYYY/MM/DD

サポートされている時間フォーマット:

hh:mm:ss

備考

DatePart関数を使用すると、日付を評価し、特定の時間間隔を戻すことができます。たとえば、DatePartを使用して曜日または現在の時間を計算できます。

次の例では、日付を取得し、DatePart関数を使用して、その日付が存在する年の四半期を表示します。

例1:

Function GetQuarter(TheDate)
GetQuarter = DatePart("q", TheDate)
End Function

例2:

Dim MyDate, YearPart
MyDate = "21/01/2025"
YearPart = DatePart("yyyy", MyDate)
'Output: 2025

例3:

Dim MyDate, MonthPart
MyDate = "21/01/2025"
MonthPart = DatePart("m", MyDate) 
'Output: MonthPart contains 1 (January)

例4:

Dim MyDate, DayPart
MyDate = "21/01/2025"
DayPart = DatePart("d", MyDate) 
'Output: 21

例5:

Dim MyDate, HourPart
MyDate = "21/01/2025 14:30:00" ' Includes time component.
HourPart = DatePart("h", MyDate) 
'Output: 14 (2 PM)

例6:

Dim MyDate, MinutePart
MyDate = "21/01/2025 14:30:00" 
MinutePart = DatePart("n", MyDate) 
'Output: 30

例7:

Dim MyDate, SecondPart
MyDate = "21/01/2025 14:30:00" ' Includes time component.
SecondPart = DatePart("s", MyDate) ' Returns the second part of the date.
'Output: 0