DatePart 函數

會傳回包含指定日期之指定部分的 Variant (Integer)。

警告使用此函數時發生問題。某些行事歷年份中的最後一個星期一可以傳回為第 53 周，而應為第 1 周。如需詳細資訊和因應措施，請參閱 Format 或 DatePart 函數可能會傳回年份中最後一個星期一的周數錯誤。

語法

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

DatePart 函數語法具有下列自變數：

引數	描述
*interval*	必要。字串表示式是您要傳回的時間間隔。
*date*	必要。 Variant (您要評估的日期) 值。
*firstdayofweek*	選擇性。指定一周中第一天的常數。如果未指定，則會假設星期日為假設。
*firstweekofyear*	選擇性。這是指定一年中第一周的常數。如果未指定，則假設第一周為 1 月 1 日所在的周。

設定

interval 自變數具有下列設定：

firstdayofweek 自變數具有下列設定：

firstweekofyear 自 變數具有下列設定：

註解

您可以使用 DatePart 函數來評估日期，並傳回特定的時間間隔。例如，您可以使用 DatePart 來計算星期幾或目前這一小時。

firstdayofweek 自變數會影響使用 “w” 和 “ww” 間隔符號的計算。

如果 date 是日期文字，指定年份會變成該日期的永久部分。不過，如果日期以雙引弧括住 (“ ”) ，而您省略年份，則每次評估日期表達式時，都會將目前的年份插入程序代碼中。這可讓您撰寫可用於不同年份的程序代碼。

附註: 針對日期，如果 [ 行事曆 ] 屬性設定為 [公曆]，則所提供日期必須為公曆。如果行事曆是回歷，則所提供的日期必須是回歷。

傳回的日期部分是目前阿拉伯文行事歷的時間週期單位。例如，如果目前的行事曆為回歷，而要傳回的日期部分為年份，則年份值為回歷年。

查詢範例

Expression	結果
SELECT DatePart (“yyyy”，[DateofSale]) AS NewDate FROM ProductSales;	傳回欄位「DateofSale」之日期值的「年」。
SELECT DatePart (“q”，[DateofSale]) AS NewDate FROM ProductSales;	根據「DateofSale」字段的日期值的年) ，傳回「季」 (。
SELECT DatePart (“y”，[DateofSale]) AS NewDate FROM ProductSales;	傳回「DateofSale」字段的日期值 (1 到 365) 的「年份日」。
SELECT DatePart (“d”，[DateofSale]) AS NewDate FROM ProductSales;	傳回欄位「DateofSale」之日期值的「日」。
SELECT DatePart (“w”，[DateofSale]) AS NewDate FROM ProductSales;	傳回「周間」 (從 1 到 7，其中 1 代表 sunday) “DateofSale” 字段的日期值。
SELECT DatePart (“ww”，[DateofSale]) AS NewDate FROM ProductSales;	傳回 “DateofSale” 字段日期值的 [周數] (從 1 到 52) 。
SELECT DatePart (“h”，[DateTime]) AS NewDate FROM ProductSales;	傳回「DateTime」字段之日期值的「小時」。
SELECT DatePart (“n”，[DateTime]) AS NewDate FROM ProductSales;	傳回「DateTime」字段之日期值的「分鐘」。
SELECT DatePart (“s”，[DateTime]) AS NewDate FROM ProductSales;	傳回「DateTime」字段之日期值的「秒數」。

附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。

此範例會採用 date，並使用 DatePart 函數顯示發生日期的年份季度。

Dim TheDate As Date    ' Declare variables.
Dim Msg    
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg