Tartalom

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

A DateSerial függvény Variant adattípust ad vissza 7-es VarType (Dátum) altípussal. Belsőleg ez az érték double (dupla pontosságú) értékként tárolódik, így ha az adott dátum 1.1.1900, akkor a visszaadott érték 2. A negatív értékek az 1899. december 30. előtti dátumoknak felelnek meg.

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 ' 04/09/1964-et ad vissza
      End Sub