DateSerial-funktion

Returnerar ett Datum-värde för ett visst år, månad eller dag.

Syntax:

DateSerial (år, månad, dag)

Returvärde:

Datum

Parametrar:

År: Heltalsuttryck som indikerar ett årtal. Alla värden mellan 0 och 99 tolkas som årtal mellan 1900 och 1999. Om det gäller årtal som ligger utanför detta intervall måste du ange alla fyra siffrorna.

Månad: Heltalsuttryck som indikerar en månad i det år som angetts. Det accepterade intervallet är 1-12.

Dag: heltalsuttryck som indikerar dagen i den månad som angetts. Värden mellan 1-31 accepteras. Inget fel returneras ifall du matar in en icke-existerande dag där månaden innehåller färre än 31 dagar.

Funktionen DateSerial returnerar antalet dagar mellan 30 december 1899 och det datum som angetts. Du kan använda den här funktionen om du vill beräkna avståndet mellan två datum.

Funktionen DateSerial returnerar datatypen Variant med VarType 7 (Date). Det här värdet lagras internt som ett Double-värde, vilket innebär att om det datum som angetts är 1900-01-01 returneras värdet 2. Negativa värden motsvarar datum före den 30 december 1899 (inte inberäknat).

Om ett datum ligger utanför det intervall som accepteras returnerar LibreOffice Basic ett felmeddelande.

Om du definierar funktionen DateValue som en sträng som innehåller ett datum, beräknar funktionen DateSerial varje parameter (år, månad, dag) som ett separat numeriskt uttryck.

Exempel:

Sub ExampleDateSerial

Dim lDate As Long

Dim sDate As String

    lDate = DateSerial(1964, 4, 9)

    sDate = DateSerial(1964, 4, 9)

    MsgBox lDate ' returnerar 23476

    MsgBox sDate ' returnerar 1964-04-09

End Sub