DateSerial Function

Returns a Date value for a specified year, month, and day.

Syntax:


DateSerial(year, month, day)

Return value:

日期

Parameters:

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 無效的程序呼叫

Example:


  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

Please support us!