DateSerial-functie

Geeft een Datum waarde voor een gespecificeerd jaar, maand en dag terug.

Syntaxis:

DateSerial (jaar, maand, dag)

Teruggegeven waarde:

Datum

Parameters:

Jaar: Integer die het jaar aangeeft. Alle waarden tussen 0 en 99 worden opgevat als de jaren 1900-1999. Voor andere jaarargumenten moet u alle vier cijfers invoeren.

Maand: Integer die de maand van het gespecificeerde jaar aangeeft. Het geaccepteerde bereik ligt tussen 1 en 12.

Dag: Integer expressie die de dag van de opgegeven maand aangeeft. Het geaccepteerde bereik is van 1-31. Er wordt geen fout geretourneerd wanneer u een niet-bestaande dag invoert voor een maand korter dan 31 dagen.

De DateSerial-functie geeft het aantal dagen tussen 30 December 1899 en de opgegeven datum terug. U kunt deze functie gebruiken om het verschil tussen twee datums te berekenen.

De functie DateSerial geeft het gegevenstype Variant met VarType 7 (Date) terug; intern wordt deze waarde opgeslagen als een Double-waarde. Daarom resulteert 1-1-1900 in de waarde 2. Negatieve waarden komen overeen met datums vóór 30 december 1899 (niet inclusief).

Als een datum wordt gedefinieerd die buiten het geaccepteerd bereik ligt geeft LibreOffice Basic een foutboodschap terug.

Het verschil met de DateValue-functie is dat u daar het functieargument definieert als een tekenreeks die de datum bevat. In tegenstelling daarmee evalueert de DateSerial-functie elk van de parameters (jaar, maand, dag) als gescheiden numerieke expressies.

Voorbeeld:

Sub ExampleDateSerial

Dim lDate As Long

Dim sDate As String

    lDate = DateSerial(1964, 4, 9)

    sDate = DateSerial(1964, 4, 9)

    MsgBox lDatum ' geeft 23476 terug

    Msgbox sDatum ' geeft 04-09-1964 terug

End Sub