Module
Contents
Index 🔎︎

# DateSerial Function

傳回指定年、月或日的 Date 值。

## 語法：

    DateSerial(year, month, day)

## 傳回值類型：

日期

## 參數：

Year：指示年份的整型表示式。0 到 99 之間的所有數值都會被解譯為 1900-1999 之間的年份。而對於此範圍之外的年份，必須輸入完整的四位數位。

Month：整型表示式，指示指定年份中的某月。可接受的範圍是 1-12。

Day: 整數表述式，可表示指定月份的日期。可接受的範圍為 1-31。當您為月份輸入個小於 31 日，但卻不存在的日期時不會回傳錯誤。

DateSerial 函式傳回 1899 年 12 月 30 日與給定日期之間相差的天數。因此，可以使用此函式計算兩個日期之間相差的天數。

DateSerial 函式傳回的資料類型是變體型，其 VarType 為 7，即 Date。在程式內部，該值作為雙精度型數值儲存。因此，當給定日期為 1900 年 1 月 1 日時，傳回值是 2。負值表示給定的日期早於 1899 年 12 月 30 日 (不包含在內)。

如果定義的日期超出了可接受的範圍，LibreOffice Basic 將傳回一則錯誤訊息。

由於您定義 DateValue 函式為包含日期的字串，因此 DateSerial 函式將每個參數 (year、month、day) 作為單獨的數值型表示式進行演算。

## 錯誤代碼：

5 無效的程序呼叫

## 示例：

    Sub ExampleDateSerial

    Dim lDate As Long

    Dim sDate As String

        lDate = DateSerial(1964, 4, 9)

        sDate = DateSerial(1964, 4, 9)

        msgbox lDate REM 傳回 23476

        msgbox sDate REM 傳回 04/09/1964

    End Sub