DatePart 函式

傳回給定日期的指定部分。

語法

DatePart(interval, date)

引數：

• Interval：必要。要傳回之時間間隔的字串表示式。如需相關值，請參閱設定值區段。
• Date：必要。要評估的日期表示式。

設定值：間隔引數可具有下列值：

支援的日期格式：

• 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