DatePart 函数

返回一个 Variant (Integer) 值,其中包含给定日期的指定部分。

警告    使用此函数时出现问题。 某些日历年中的最后一个星期一可以作为第1周的第一周返回到53。 有关详细信息和解决方法,请参阅格式或 DatePart 函数可能返回第一年的星期一的错误周数

语法

DatePart interval,date [firstdayofweek] [firstweekofyear]

DatePart函数语法具有以下参数:

参数

描述

interval

必需。 字符串表达式,表示要返回的时间间隔。

date

必需。 要计算的VariantDate)值。

firstdayofweek

可选。 指定一周的第一天的 常量 。 如果未指定,则假定为星期日。

firstweekofyear

可选。 一个常量,指定一年的第一周。 如果未指定,则第一周假定为1月1日所在的一周。

设置

Interval 参数具有以下设置:

设置

说明

yyyy

q

季度

m

y

一年中的某一天

d

w

Weekday

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

从第一周开始,最新一年至少有四天。

vbFirstFullWeek

3

从一年的第一个完整周开始。

备注

可以使用DatePart函数计算日期,并返回特定的时间间隔。 例如,你可以使用DatePart计算一周中的某一天或当前小时。

Firstdayofweek 参数影响使用 "w" 和 "ww" 间隔符号的计算。

如果date是 日期字符串 ,则指定的年份将成为该日期的永久部分。 但是,如果date括在双引号("")中,并且省略了年份,则每次计算日期表达式时,当前年份都会插入到代码中。 这样便可以编写可在不同年份使用的代码。

注意: 对于日期,如果Calendar属性设置为公历,则提供的日期必须是公历。 如果日历是回历,则提供的日期必须是回历。

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

查询示例

表达式

结果

选择 "DatePart" ("yyyy",[DateofSale])作为 NewDate FROM ProductSales;

返回字段 "DateofSale" 的日期值的 "Year"。

选择 "DatePart" ("q",[DateofSale])作为 NewDate FROM ProductSales;

返回字段 "DateofSale" 的日期值的 "季度" (基于日历年份)。

选择 "DatePart" ("y",[DateofSale])作为 NewDate FROM ProductSales;

返回字段 "DateofSale" 的日期值的 "Year Day" (1到365)。

选择 "DatePart" ("d",[DateofSale])作为 NewDate FROM ProductSales;

返回字段 "DateofSale" 的日期值的 "Day"。

选择 "DatePart" ("w",[DateofSale])作为 NewDate FROM ProductSales;

返回字段 "DateofSale" 的日期值的 "Weekday" (从1到7,其中1表示星期日)。

选择 "DatePart" ("ww",[DateofSale])作为 NewDate FROM ProductSales;

返回字段 "DateofSale" 的日期值的 "周数" (从1到52)。

从 ProductSales 中选择 DatePart ("h",[DateTime])作为 NewDate。

返回字段 "DateTime" 的日期值的 "小时"。

从 ProductSales 中选择 DatePart ("n",[DateTime])作为 NewDate。

返回字段 "DateTime" 的日期值的 "分钟"。

从 ProductSales 中选择 DatePart ("s",[DateTime])作为 NewDate。

返回字段 "DateTime" 的日期值的 "秒"。

VBA 示例

注意: 下面的示例演示了在 Visual Basic for Applications (VBA)模块中使用此函数的示例。 有关使用 VBA 的详细信息,请在 "搜索" 旁边的下拉列表中选择 "开发人员引用",然后在搜索框中输入一个或多个字词。

此示例获取一个日期,并使用DatePart函数显示该日期出现在一年中的第几个季度。

Dim TheDate As Date    ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg

另请参阅

选择正确的日期函数

需要更多帮助?

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×