DatePart用于提取时间元素，比如，提取年，月，日，时，分，秒。

本文内容

1. 语法
2. 设置
3. 注解
4. 示例
5. 另请参阅

警告

使用此函数存在问题。 某些日历年的最后一个星期一可以返回为第 53 周，而该周应为第 1 周。 有关详细信息和解决方法，请参阅 Format 或 DatePart 函数可能返回错误的年份中上周一的周数。 返回包含给定日期的指定部分的 Variant (Integer)。

语法

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

DatePart 函数语法包含下列命名参数：

设置

interval参数具有以下设置：

firstdayofweek 参数具有以下设置：

firstweekofyear 参数包含以下设置：

注解

使用 DatePart 函数计算日期并返回特定的时间间隔。 例如，您可使用 DatePart 计算每周的某一日或当前时间。

firstdayofweek 参数影响使用“w”和“ww”时间间隔符号的计算。

如果 date 为一个日期字符串，则指定的年将成为该日期的永久性部分。 但是，如果 date 是用双引号 (" ") 引起的，则可省略年，每次计算 date 表达式时，会将当前年插入代码中。 这样能够使编写的代码在不同年份中均可使用。

备注

对于 date，如果 Calendar 属性设置为公历，则提供的日期必须为公历。 如果日历为回历，则提供的日期必须为回历。

返回的日期部分是当前阿拉伯语日历的时间单元。 例如，如果当前日历为回历并且要返回的日期部分为年，则年值为回历年。

示例

此示例接受一个日期，并使用 DatePart 函数显示该日期所在的季度。

VB复制

Sub testDatePart()
    dt = #11/25/2023 9:30:20 PM#
    Debug.Print DatePart("yyyy", dt) ' 2023
    Debug.Print DatePart("y", dt)    ' 329，一年中的第329天
    Debug.Print DatePart("m", dt)    ' 11，11月
    Debug.Print DatePart("d", dt)    ' 25，25号
    Debug.Print DatePart("h", dt)    ' 21
    Debug.Print DatePart("n", dt)    ' 30
    Debug.Print DatePart("s", dt)    ' 20
End Sub