DateSerial 函式

傳回指定年度、月份及日期之子類型 Date 的變異。

語法

DateSerial(year, month, day)

引數：

• Year：介於 100 到 9999 之間 (含) 的數字，或是數值表示式。
• Month：任何數值表示式。
• Day：任何數值表示式。

備註

若要指定日期 (例如 1991 年 12 月 31 日)，每個 DateSerial 引數的數字範圍應該在單位的接受範圍內；亦即 1 到 31 天，1 到 12 個月。不過，您也可以使用任何數值表示式來指定每個引數的相對日期，此表示式代表特定日期之前或之後的天數、月數或年數。

下列範例使用數值表示式而不是絕對日期數字。此處的 DateSerial 函式會傳回 1990 年的前 10 年 (1990 - 10)、8 月的前 2 個月 (8 - 2)、第一天的前一天 (1 - 1) 的日期；也就是 1980 年 5 月 31 日。

Dim MyDate1, MyDate2
MyDate1 = DateSerial(1970, 1, 1)   
Output: 01-Jan-70
MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1)  
'Output: 31-May-80

對於 year 引數，會將介於 0 到 99 之間 (含) 的值解譯為 1900 – 1999 年。對於其他所有 year 引數，則使用完整的四位數年份 (例如 1800)。

當任何引數超過該引數的可接受範圍時，會視需要遞增至下一個較大的單位。例如，如果您指定 35 天，則會根據套用的所在年度，評估為一個月和數天。不過，如果任何單一引數在 -32,768 到 32,767 的範圍之外，或者如果這三個引數所指定的日期 (無論直接或透過表示式指定) 落在可接受的日期範圍之外，就會發生錯誤。

輸出日期格式是以系統的簡短日期格式為依據。

下列範例說明 DateSerial 函式的用法：

範例 1：

Dim MyDate1
MyDate1 = DateSerial(1970, 1, 1)  
'Output: 01-Jan-70

範例 2：

Dim MyDate2
MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1)   
'Output: 31-May-80

範例 3：

Dim MyDate3
MyDate3 = DateSerial(2025, 15, 40)  
'Output: 09-Apr-26

範例 4：

Dim MyDate4
MyDate4 = DateSerial(2025, 1, 0)   
'Output: 31-Dec-24

範例 5：

Dim MyDate5
MyDate5 = DateSerial(50, 1, 1)   
'Output: 01-Jan-50

範例 6：

Dim MyDate6
MyDate6 = DateSerial(99, 12, 31)   
'Output: 31-Dec-99