DatePart 函式
警告
使用此函式時發生問題。 某些日曆年度的最後一個星期一可以傳回為第 53 周，其應為第 1 周。 如需詳細資訊和因應措施，請參閱 Format 或 DatePart 函式可能會傳回去年最後一個星期一的錯誤周數。 傳回 Variant (整 數) 包含指定日期的指定部分。
語法
DatePart (interval， date， [ firstdayofweek， [ firstweekofyear ]])
DatePart 函式語法具有下列具名自變數：
| 部分 | 描述 |
|---|---|
| Interval | 必要。 字串表示 式，這是您想要傳回的時間間隔。 |
| date | 必要項目。 Variant (Date) 您要評估的值。 |
| firstdayofweek | 選用。 constant 會指定每週的第一天。 如果未指定，則會假設星期日。 |
| firstweekofyear | 選用。 常數會指定每年的第一週。 如果未指定，則會假設 1 月 1 日發生那一週為第一週。 |
設定
interval 自變數具有下列設定：
| 設定 | 說明 |
|---|---|
| yyyy | 年 |
| q | 季 |
| m | 月 |
| y | 年中的日 |
| d | 日 |
| w | 工作日 |
| 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 以雙引弧括住 (“) ，而您省略年份，則每次評估 日期 運算式時，都會將目前的年份插入程式代碼中。 如此一來，便能夠撰寫可用在不同年度的程式碼。
注意事項
對於 date，如果 Calendar 屬性設定為西曆，提供的日期也必須是西曆。 如果行事曆為回曆，那麼提供的日期也必須是回曆。
傳回的日期部分是目前阿拉伯曆法的時間週期單位。 例如，如果目前的行事曆是Hijri，而要傳回的日期部分是年份，則年份值為回歷年。
範例
此範例會採用日期，並使用 DatePart 函式 顯示其發生年份的季。
Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。