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