目次

# DateSerial Function

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

### Syntax:

    DateSerial (year, month, day)

### Return type:

日付

### 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

ご支援をお願いします！