DatePart

一個函數，返回給定日期的特定部分。

語法

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

參數說明

• Interval, 必需的參數。它可以采用以下值：

  • d - 一年中的一天

  • m - 一年中的月份

  • y - 年份年數

  • yyyy - 年份

  • w - 工作周

  • ww - 星期

  • q - 季度

  • h - 小時

  • m - 分鐘

  • s - 秒

• date1 是一個必需參數

• firstdayofweek 是可選的。指定一周的第一天。它可以采用以下值：

  • 0 = vbUseSystemDayOfWeek - 使用國家語言支持(NLS)API設置

  • 1 = vbSunday - 星期日

  • 2 = vbMonday - 星期一

  • 3 = vbTuesday - 星期二

  • 4 = vbWednesday - 星期三

  • 5 = vbThursday - 星期四

  • 6 = vbFriday - 星期五

  • 7 = vbSaturday - 星期六

• firstdayofyear 是可選的。指定一年的第一天。它可以采用以下值：

  • 0 = vbUseSystem - 使用國家語言支持(NLS)API設置

  • 1 = vbFirstJan1 - 開始在1月1日發生的周(默認)

  • 2 = vbFirstFourDays - 開始在新的一年中至少有四天的一周

  • 3 = vbFirstFullWeek - 開始新的一年的第一個完整周

示例 :

添加一個按鈕，並添加以下功能

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