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 の該当年として解釈されますが、その他の数値は 4 桁すべてを指定する必要があります。

Month: 月を指定する整数表式。1 から 12 の数値を指定できます。

Day: 指定された月における日を示す整数式。1 から 31 までの数値を指定できます。ただし小の月に存在しない日付を入力しても、エラーは返されません。

DateSerial 関数は、1899 年 12 月 30 日からの経過日数を返します。この関数で得られる数値は、2 つの日付間の日数計算などに利用できます。

The DateSerial function returns the data type Variant with VarType 7 (Date). Internally, this value is stored as a Double value, so that when the given date is 1900-01-01, the returned value is 2. Negative values correspond to dates before December 30, 1899 (not inclusive).

処理範囲外の日付を指定すると、LibreOffice Basicからはエラーメッセージが返されます。

DateValue 関数では日付を 1 つの文字列として指定するのに対して、DateSerial 関数の場合は各パラメーター(年、月、日) を、それぞれ個別に評価します。

Error codes:

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 ' returns 1964-04-09 in ISO 8601 format
  End Sub