DatePart 函數

套用到
Microsoft 365 Access Access 2024 Access 2021 Access 2019 Access 2016

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

警告 這個功能的使用上有問題。 某些曆年中的最後一個星期一可以被歸還為第53週,而實際上應該是第1週。 欲了解更多資訊及解決方法,請參閱 格式或日期部分功能可能會回傳錯誤的年度最後一個星期一的週數

語法

日期部分 (間隔,日期 [,第一天的星期][,學年的第一週] )

DatePart 函式語法包含以下參數:

引數 描述
interval 必要。 字串表達式,也就是你想要回傳的時間區間。
日期 必要。 變 (日期) 你想評估的價值。
週第一天 可省略。 一個固定的恆定,標示著一週的第一天。 若未特別說明,則假設是星期日。
學年第一週 可省略。 一個標示新年第一週的常數。 若未特別說明,第一週則假設為1月1日的那一週。

設定

區間論證具有以下設定:

設定 描述
yyyy
q
m 月份
y 一年的星期幾
d 日期
w Weekday
ww
h
n 分鐘
s

「第一天」論證的設定如下:

恆定 描述
vbUseSystem 0 使用 NLS API 設定。
vb星期日 1 星期天 (預設)
VB星期一 2 星期一
vb星期二 3 星期二
vb星期三 4 星期三
vb星期四 5 星期四
vb星期五 6 星期五
vb星期六 7 星期六

第一週論證的設定如下:

恆定 描述
vbUseSystem 0 使用 NLS API 設定。
vbFirst1月1日 1 從1月1日 (預設) 的那週開始。
vb第一四天 2 從新年至少有四天的第一週開始。
vb第一週完整週 3 從今年第一個完整週開始。

註解

你可以使用 DatePart 函式來評估日期並回傳特定的時間區間。 例如,你可以用 DatePart 來計算星期幾或當前時點。

Firstdayofweek 論證影響使用「w」和「ww」區間符號的計算。

如果 日期 是字面日期,指定的年份將成為該日期的永久部分。 然而,如果 日期 以雙引號 (「) 」包圍,且省略年份,每次計算 日期 表達式時,程式碼中會插入當前年份。 這使得可以撰寫可用於不同年份的程式碼。

注意

關於日期,若 Calendar 屬性設定為格里曆,則所提供的日期必須是格里曆。 如果曆法是伊斯蘭曆,則所提供的日期必須是伊斯蘭曆。

回傳的日期部分以現行阿拉伯曆的時間單位計算。 例如,如果當前曆法是伊斯蘭曆,且要返回的日期部分是年份,那麼年值就是伊斯蘭曆年。

查詢範例

運算式 結果
選擇日期部分 (“yyyy”,[銷售日期]) 作為 NewDate 來自 ProductSales; 回傳「DateofSale」欄位日期值的「年份」。
選擇日期部分 (“q”,[DateofSale]) 作為 NewDate 來自 ProductSales; 根據「DateofSale」欄位日期值的日曆年) 回傳「季度」 (。
選擇日期 部分 (“y”,[銷售日期]) 作為 NewDate 來自 ProductSales; 回傳「DateofSale」欄位日期值的 1 到 365) (年份。
選擇日期部分 (“d”,[銷售日期]) 作為 NewDate 來自 ProductSales; 回傳「DateofSale」欄位日期值的「Day」。
選擇日期部分 (“w”,[銷售日期]) 作為 NewDate 來自 ProductSales; 回傳「平日」 (,從 1 到 7,其中 1 代表週日) 「DateofSale」欄位的日期值。
選擇日期部分 (“ww”,[銷售日期]) 作為 NewDate 來自 ProductSales; 回傳「銷售日期」欄位日期值的 1 到 52) ,從 1 到 52 (的「週數」。
選擇日期部分 (“h”,[DateTime]) 作為 NewDate 來自 ProductSales; 回傳欄位「DateTime」中日期值的「Hour」。
選擇日期部分 (“n”,[DateTime]) 作為 NewDate 來自 ProductSales; 回傳欄位「DateTime」中日期值的「分鐘數」。
選擇日期 部分 Parts (“s”,[DateTime]) 作為 NewDate 來自 ProductSales; 回傳欄位「DateTime」中日期值的秒數。

VBA 範例

注意

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

此範例取一個日期,並利用 DatePart 函式顯示該日期發生的季度。

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

選擇合適的約會功能