使用此函数存在问题。 某些日历年的最后一个星期一可以返回为第 53 周，而该周应为第 1 周。 有关详细信息和解决方法，请参阅
Format 或 DatePart 函数可能返回错误的年份中上周一的周数
。
返回包含给定日期的指定部分的
Variant
(
Integer
)。
DatePart
(
interval
，
date
， [
firstdayofweek
， [
firstweekofyear
]])
DatePart
函数语法包含下列
命名参数
：
使用
DatePart
函数计算日期并返回特定的时间间隔。 例如，您可使用
DatePart
计算每周的某一日或当前时间。
firstdayofweek
参数影响使用“w”和“ww”时间间隔符号的计算。
如果
date
为一个
日期字符串
，则指定的年将成为该日期的永久性部分。 但是，如果
date
是用双引号 (" ") 引起的，则可省略年，每次计算
date
表达式时，会将当前年插入代码中。 这样能够使编写的代码在不同年份中均可使用。
对于
date
，如果
Calendar
属性设置为公历，则提供的日期必须为公历。 如果日历为回历，则提供的日期必须为回历。
返回的日期部分是当前阿拉伯语日历的时间单元。 例如，如果当前日历为回历并且要返回的日期部分为年，则年值为回历年。
此示例接受一个日期，并使用
DatePart
函数显示该日期所在的季度。
Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg
函数 (Visual Basic for Applications)
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。
Format 或 DatePart 函数可能返回错误的年份中最后一个星期一的周数
