DatePart 函數

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

警告    使用此函數時出現問題。 部分行事歷年中的最後一個星期一可以在第1周時傳回為周53。 如需詳細資訊及因應措施,請參閱Format 或 DatePart 函數可能會傳回第一年的最後一個星期一的周數錯誤

語法

DatePart interval,date [firstdayofweek] [firstweekofyear]

DatePart函數語法具有下列引數:

引數

說明

interval

必要。 字串運算式,是您要傳回的時間間隔。

date

必要。 要評估的VariantDate)值。

firstdayofweek

選用。 指定一周的第一天的 常數 。 如果沒有指定,則會假設星期天。

firstweekofyear

選用。 一個常數,指定一年的第一周。 如果未指定,第一周則會被認為是1月1日所在的周。

設定

Interval 引數具有下列設定:

設定

描述

yyyy

q

m

月份

y

一年中的某天

d

日期

w

Weekday

ww

h

n

分鐘

s

Firstdayofweek 引數具有下列設定:

常數

描述

vbUseSystem

0

使用 NLS API 設定。

vbSunday

1

星期天(預設值)

vbMonday

2

星期一

vbTuesday

3

星期二

vbWednesday

4

星期三

vbThursday

5

星期四

vbFriday

6

星期五

vbSaturday

7

星期六

Firstweekofyear 引數具有下列設定:

常數

描述

vbUseSystem

0

使用 NLS API 設定。

vbFirstJan1

1

從1月1日所在的周開始(預設)。

vbFirstFourDays

2

從新年份中至少有四天的第一周開始。

vbFirstFullWeek

3

從一年中的第一個完整周開始。

註解

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

Firstdayofweek 引數會影響使用 "w" 和 "ww" 間隔符號的計算。

如果date是 日期文字,指定的年份會成為該日期的永久部分。 不過,如果date是括在雙引號("")中,而您省略年份,則每次評估日期運算式時,都會在您的程式碼中插入本年度。 這樣就能撰寫可在不同年份使用的程式碼。

附註: 針對日期,如果行事屬性設定是西曆,提供的日期必須是西曆。 如果行事曆是回曆,提供的日期必須是回曆。

傳回的日期部分位於目前阿拉伯日曆的時間週期單位中。 例如,如果目前的行事曆是回曆,且要傳回的日期部分是年,則年份值是阿拉伯回曆年份。

查詢範例

運算式

結果

選取 DatePart ("yyyy",[DateofSale])作為 NewDate (來自 ProductSales);

傳回欄位 "DateofSale" 的日期值的 "Year"。

從 ProductSales 選取 DatePart ("q",[DateofSale])作為 NewDate。

傳回「DateofSale」欄位之日期值的 "季" (根據行事歷年份)。

選取 DatePart ("y",[DateofSale])作為 NewDate 從 ProductSales;

傳回欄位 "DateofSale" 的日期值的 [一年的第幾天] (1到365)。

選取 DatePart ("d",[DateofSale])作為 NewDate 從 ProductSales;

傳回欄位 "DateofSale" 的日期值的 "Day"。

選取 DatePart ("w",[DateofSale])作為 NewDate 的 ProductSales;

傳回欄位 "DateofSale" 的日期值的 [Weekday] (1到7,其中1代表星期日)。

從 ProductSales 選取 DatePart ("ww",[DateofSale])作為 NewDate。

傳回欄位 "DateofSale" 的日期值的 "周數" (從1到52)。

從 ProductSales 選取 DatePart ("h",[DateTime])作為 NewDate。

傳回欄位 "DateTime" 的日期值的 "Hour"。

從 ProductSales 選取 DatePart ("n",[DateTime])作為 NewDate。

傳回欄位 "DateTime" 的日期值的 "分鐘"。

從 ProductSales 選取 DatePart ("s",[DateTime])作為 NewDate。

傳回欄位 "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

請參閱

選擇正確的日期函數

增進您的 Office 技巧
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×