Funkce DateSerial

Vrátí hodnotu Date pro určený rok, měsíc a den.

Syntaxe:


DateSerial (year, month, day)

Návratová hodnota:

Datum

Parametry:

Year: Číselná hodnota určující rok. Všechny hodnoty mezi 0 a 99 se interpretují jako roky 1900-1999. Pro roky mimo tento rozsah musíte použít čtyři číslice.

Month: Číselná hodnota určující měsíc v určeném roce. Povolený rozsah je 1-12.

Den: Číselná hodnota určující den určeného měsíce. Povolený rozsah je 1-31. Pokud zadáte neexistující číslo dne pro měsíc kratší než 31 dní, není vrácena žádná chyba.

Funkce DateSerial vrací počet dní mezi 30. prosincem 1899 a určeným datem. Pomocí této funkce je možné vypočítat rozdíl mezi dvěma daty.

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).

Pokud definované datum leží mimo povolený rozsah, LibreOffice Basic zobrazí chybovou zprávu.

Zatímco ve funkci DateValue zadáváte řetězec obsahující datum, funkce DateSerial zpracovává každý parametr (rok, měsíc, den) jako samostatný číselný výraz.

Chybové kódy:

5 Neplatné volání procedury

Příklad:


  Sub ExampleDateSerial
  Dim lDate As Long
  Dim sDate As String
      lDate = DateSerial(1964, 4, 9)
      sDate = DateSerial(1964, 4, 9)
      MsgBox lDate ' vrátí 23476
      MsgBox sDate ' returns 1964-04-09 in ISO 8601 format
  End Sub

Podpořte nás!