Aktivér JavaScript i netlæseren for at vise LibreOfficeDev Hjælpesider.

Funktionen DateSerial

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

Syntaks:


DateSerial (år, måned, dag)

Returværdi:

Dato

Parametre:

Year: Heltalsudtryk, som indikerer et år. Alle værdier mellem 0 og 99 bliver fortolket som år 1900-1999. For år, som falder udenfor dette interval, skal du indtaste alle fire cifre.

Month: Heltalsudtryk, som indikerer måneden for det specificerede år. Det accepterede interval er 1-12.

Dag: Heltalsudtryk, som indikerer dagen i den specificerede måned. Det accepterede område er fra 1-31. Der returneres ikke en fejl, hvis du indtaster en ikke-eksisterende dag for en måned med færre end 31 dage.

DateSerial-funktionen returnerer antal dage mellem 30. december 1899 og den givne dato. Du kan bruge denne funktion til at beregne forskellen mellem to datoer.

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

Hvis en dato er defineret som liggende udenfor det accepterede interval, vil LibreOfficeDev Basic returnere en fejlmeddelelse.

Hvis du definerer DateValue-funktionen som en streng, der indeholder datoen, bedømmer DateSerial-funktionen hver af parametrene (år, måned, dag) som separate numeriske udtryk.

Fejlkoder:

5 Ugyldigt Procedurekald

Eksempel:


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