DatePart 函数

返回给定日期的指定部分。 [code][b]DatePart([/b]interval, date[, firstdayofweek[, firstweekofyear]][b])[/b][/code] [h3]Arguments[/h3][i]interval[/i] 必选项。字符串表达式表示要返回的时间间隔。有关数值，请参阅“设置”部分。 [i]Date[/i] 必选项。要计算的日期表达式。 [i]firstdayof week[/i] 可选项。指定星期中的第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。 [i]Firstweekofyear[/i] 可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。 [h3]设置[/h3][b]interval[/b] 参数可以有以下值：

设置	描述
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	由在新的一年中第一个完整的周（不跨年度）开始。

[h3]说明[/h3][b]DatePart[/b] 函数用于计算日期并返回指定的时间间隔。例如使用 [b]DatePart[/b] 计算某一天是星期几或当前的时间。 [b]firstdayofweek[/b] 参数会影响使用“w”和“ww”间隔符号的计算。 如果 [b]date[/b] 是日期文字，则指定的年度会成为日期的固定部分。但是如果 [b]date[/b] 被包含在引号 (" ") 中，并且省略年份，则在代码中每次计算 [b]date[/b] 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。. 下面的示例利用 [b]DatePart[/b] 函数获得日期并显示该日所在的季节。

[code] Function GetQuarter(TheDate)   GetQuarter = [b]DatePart([/b]"q"[b],[/b] TheDate[b])[/b]End Function[/code]