DateSerial Function

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

Szintaxis:


DateSerial (év, hónap, nap)

Visszatérési érték:

Dátum

Paraméterek:

Év: Integer (egész szám) kifejezés, amely az évet jelzi. A 0 és 99 közötti értékek 1900-1999 évekként kerülnek értelmezésre. A tartományon kívül eső évek esetén mind a négy számjegyet meg kell adnia.

Hónap: Integer (egész szám) kifejezés, amely az adott év hónapját jelzi. Az elfogadott tartomány 1-12.

Nap: Integer (egész szám) kifejezés, amely az adott hónap napját jelzi. Az elfogadott tartomány 1-31, a hónaptól függően. Nincs hibajelzés, ha egy 31 napnál rövidebb hónapnál nem létező napot ad meg.

A DateSerial függvény visszaadja az 1899. december 30. és az adott dátum közötti napok számát. A függvény segítségével kiszámíthatja a két dátum közötti különbséget.

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

Ha a megadott dátum az elfogadott tartományon kívül esik, akkor a LibreOffice Basic hibaüzenetet ad vissza.

Ha a DateValue függvényt dátumot tartalmazó karakterláncként adja meg, akkor a DateSerial függvény a paramétereket (év, hónap, nap) külön numerikus kifejezésként számítja ki.

Hibakódok:

5 Érvénytelen eljáráshívás

Példa:


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