DatePart 函数
全部显示 
全部隐藏 返回变量型（整型），其中包含给定日期的指定部分。
语法
DatePart(interval, date [, firstdayofweek] [, firstweekofyear] )
DatePart 函数的语法包含以下参数 （参数：为操作、事件、方法、属性、函数或过程提供信息的值。）：
| 参数 | 说明 |
|---|---|
| interval | 必选。字符串表达式 （字符串表达式：任一求值为一列连续字符的表达式。表达式的元素可以是：返回字符串或字符串 Variant (VarType 8) 的函数；字符串字面值、常量、变量或 Variant。），表示希望返回的时间间隔。 |
| date | 必选。要计算的变量型（日期型）值。 |
| firstdayofweek | 可选。常量 （常量：不进行计算的值，因此也不会发生变化。例如，数字 210 以及文本“每季度收入”都是常量。表达式以及表达式产生的值都不是常量。），指定一周的第一天。如果不指定，则默认为星期日。 |
| firstweekofyear | 可选。常量，指定一年的第一周。如果不指定，则第一周默认为 1 月 1 日所在的周。 |
设置
interval 参数 （参数：为操作、事件、方法、属性、函数或过程提供信息的值。）包含以下设置：
| 设置 | 说明 |
|---|---|
| yyyy | 年 |
| q | 季度 |
| m | 月 |
| y | 某年的某一天 |
| d | 天 |
| w | 工作日 |
| 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 放在双引号 (" ") 中，并且省略了年份，则每次计算 date 表达式求值时，当前年份均会插入代码中。这样即可编写用于不同年份的代码。
注释 对于 date，如果 Calendar 属性设置为公历，则提供的日期必须为公历。如果日历为回历，则提供的日期必须为回历。
返回的日期部分为当前阿拉伯日历的时间段单位。例如，如果当前日历为回历，并且要返回的日期部分为年份，则年份值为回历。
示例
注释 以下示例演示了此功能在 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
