會傳回指定年、月及日的 Variant (Date)。
語法
DateSerial (年、月、日)
警告 請確定引數位於正確的值範圍內。 無效的引數可能會導致不正確的結果。
DateSerial 函數語法具有下列引數：
| 引數 | 描述 |
|---|---|
| 年 | 必要。 整數。 介於 100 到 9999 之間的數字（含）或數值運算式。 |
| 月 | 必要。 整數。 任何數值運算式。 |
| 天 | 必要。 整數。 任何數值運算式。 |
註解
若要指定日期，例如 1991 年 12 月 31 日，則每個 DateSerial 引數的數字範圍應該位於單位可接受的範圍內;也就是說，天數為 1-31，月份為 1-12。 不過，您也可以使用任何數值運算式來指定每個引數的相對日期，該運算式代表特定日期之前或之後的天數、月份數或年份數。
下列範例使用數字運算式，而非絕對日期數字。 這裡的 DateSerial 函數傳回的日期是) (1 - 1 第一天的前一天，即) 年 8 月 (8 - 2 日的兩個月前，即 1990 (1990 - 10) 年前的 10 年;換句話說，1980 年 5 月 31 日。
DateSerial(1990 - 10, 8 - 2, 1 - 1)
year 引數的兩位數年份是根據使用者定義的電腦設定來解譯。 預設設定是介於 0 到 29 之間的值（含）會解譯為 2000-2029 年。 介於 30 到 99 之間的預設值會解譯為 1930-1999 年。 針對所有其他 年份 引數，請使用四位數的年份 (例如 1800) 。
Windows 2000 之前的 Windows 版本會根據上述預設值來解譯兩位數的年份。 若要確保函數傳回正確的值，請使用四位數的年份。
當任何引數超過該引數接受的範圍時，它會視需要遞增至下一個較大的單位。 例如，如果您指定 35 天，則會根據套用年份的哪個位置，將其評估為一個月和一些天數。 如果任何單一引數超出 -32,768 到 32,767 的範圍，則會發生錯誤。 如果三個引數指定的日期超出可接受的日期範圍，則會發生錯誤。
注意
針對 year、month和day，如果 Calendar 屬性設定為 Gregorian，則會假設提供的值為 Gregorian。 如果 Calendar 內容設定為 Hijri，則會假設提供的值為 Hijri。
傳回的日期部分是目前 Visual Basic 行事曆的時間週期單位。 例如，如果目前行事曆是回曆，且要傳回的日期部分是年份，則年份值是回曆年份。 對於引數 年份，介於 0 到 99 之間的值（含）會解譯為 1400-1499 年。 針對所有其他 年份 值，請使用完整的四位數年份 (例如 1520) 。
查詢範例
| 運算式 | 結果 |
|---|---|
| SELECT Dateserial (2018,12,13) AS NewDate FROM ProductSales; | 傳回在函數引數中輸入的指定年、月和日的「日期」，並顯示在 “NewDate” 資料行中。 結果：「2018 年 12 月 13 日」。 |
VBA 範例
注意
下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 DateSerial 函數傳回所指定年、月和日的日期。
Dim MyDate ' MyDate contains the date for February 12, 1969. MyDate = DateSerial(1969, 2, 12) ' Return a date.