DatePart 函数
DatePart 函数可返回某个日期的指定部分。
语法：
DatePart (Add, Date [, Week_start [, Year_start]])
返回值：
包含日期的变体。
参数：
Add - 下表中的字符串表达式之一，用于指定日期间隔。
|
Add（字符串值）
|
解释
|
|
yyyy
|
年
|
|
q
|
季度
|
|
m
|
月
|
|
y
|
年中某日
|
|
w
|
工作日
|
|
ww
|
年中某周
|
|
d
|
天
|
|
h
|
小时
|
|
n
|
分钟
|
|
s
|
秒
|
Date - 用来计算结果的日期。
Week_start - 可选参数，用于指定一周的起始日。
|
Week_start 值
|
解释
|
|
0
|
使用系统默认值
|
|
1
|
星期日（默认）
|
|
2
|
星期一
|
|
3
|
星期二
|
|
4
|
星期三
|
|
5
|
星期四
|
|
6
|
星期五
|
|
7
|
星期六
|
Year_start - 可选参数，用于指定一年的起始周。
|
Year_start 值
|
解释
|
|
0
|
使用系统默认值
|
|
1
|
第 1 周是包含 1 月 1 日的周（默认）
|
|
2
|
第 1 周是含有当年 4 天以上天数的第 1 周
|
|
3
|
第 1 周是仅包含属于新一年的那几天的第 1 周
|
示例：
Sub example_datepart
MsgBox DatePart("ww", "12/31/2005")
End Sub