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