DateSerial Function

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

Sintaksė:


DateSerial (metai, mėnuo, diena)

Grąžinimo reikšmė:

Data

Parametrai:

Metai: sveikasis reiškinys, nurodantis metus. Visos reikšmės nuo 0 iki 99 interpretuojamos kaip 1900–1999 metai. Metams, kurie nepatenka į šį intervalą, turite įvesti visus keturis skaitmenis.

Mėnuo: sveikasis reiškinys, nurodantis nurodytų metų mėnesį. Priimamas intervalas yra nuo 1 iki 12.

Diena: sveikasis reiškinys, nurodantis nurodyto mėnesio dieną. Priimamas intervalas yra nuo 1–31. Įvedus neegzistuojančią dieną, trumpesnę nei 31 diena, klaida negrąžinama.

Funkcija DateSerial pateikia dienų skaičių nuo 1899 m. gruodžio 30 d. iki nurodytos datos. Šia funkcija galite apskaičiuoti dviejų datų skirtumą.

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

Jei nustatoma data, kuri yra už priimto diapazono ribų, „LibreOffice Basic“ pateikia klaidos pranešimą.

Funkciją DateValue apibrėžiate kaip eilutę, kurioje yra data, o funkcija DateSerial kiekvieną parametrą (metus, mėnesį, dieną) vertina kaip atskirus skaitinius reiškinius.

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

Pavyzdys:


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

Paremkite mus!