DatePart

一个Function，它返回给定日期的特定部分。

语法 (Syntax)

DatePart(interval,date[,firstdayofweek[,firstweekofyear]]) 

参数描述 (Parameter Description)

• Interval - 必需参数。 它可以采用以下值。

  • d - 一年中的某一天。

  • m - 一年中的一个月

  • y - 一年中的一年

  • yyyy - 年

  • w - 工作日

  • 周 - 周

  • q - 季度

  • h - 小时

  • n分钟

  • s - 秒

• Date1 - 必需参数。

• Firstdayofweek - 可选参数。 指定一周的第一天。 它可以采用以下值。

  • 0 = vbUseSystemDayOfWeek - 使用国家语言支持（NLS）API设置

  • 1 = vbSunday - 周日

  • 2 = vbMonday - 星期一

  • 3 =周二 - 周二

  • 4 =周三 - 周三

  • 5 = vbThursday - 周四

  • 6 = vbFriday - 星期五

  • 7 = vbSaturday - 星期六

• Firstdayofyear - 可选参数。 指定一年中的第一天。 它可以采用以下值。

  • 0 = vbUseSystem - 使用国家语言支持（NLS）API设置

  • 1 = vbFirstJan1 - 从1月1日发生的那一周开始（默认）

  • 2 = vbFirstFourDays - 从新年至少有四天的一周开始

  • 3 = vbFirstFullWeek - 从新年的第一个完整周开始

例子 (Example)

添加按钮并添加以下功能。

Private Sub Constant_demo_Click()
   Dim Quarter as Variant
   Dim DayOfYear as Variant
   Dim WeekOfYear as Variant
   Date1 = "2013-01-15"
   Quarter    = DatePart("q", Date1)
   msgbox("Line 1 : " & Quarter)
   DayOfYear  = DatePart("y", Date1)
   msgbox("Line 2 : " & DayOfYear)
   WeekOfYear = DatePart("ww", Date1)
   msgbox("Line 3 : " & WeekOfYear)
   msgbox("Line 4 : " & DatePart("m",Date1))  
End Sub

执行上述功能时，会产生以下输出。

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1