IBM Lotus Symphony


Funktionen DateSerial [Runtime]

Returnerer en datoværdi for en angivet værdi med år, måned og dag.

Syntaks:

DateSerial (År, Måned, Dag)

Returværdi:

Dato

Parametre:

År: Heltalsudtryk, der angiver et årstal. Alle værdier mellem 0 og 99 fortolkes som årene 1900-1999. Ved årstal uden for dette interval skal du angive alle fire cifre.

Måned: Heltalsudtryk, der angiver måneden i det angivne år. Værdierne 1-12 kan angives.

Dag: Heltalsudtryk, der angiver dagen i den angivne måned. Værdierne 1-31 kan angives. Der returneres ingen fejl, hvis du angiver en ikke-eksisterende dag i en måned, der er kortere end 31 dage.

Funktionen DateSerial returnerer antallet af dage mellem 30. december 1899 og den angivne dato. Du kan bruge funktionen til at beregne forskellen mellem to datoer.

Funktionen DateSerial returnerer datatypen Variant med VarType 7 (dato). Værdien gemmes internt med datatypen Double, så når den angivne dato er 1-1-1900, returneres værdien 2. Negative værdier svarer til datoer før 30. december 1899 (denne dato ikke iberegnet).

Lotus® Symphony™ Basic viser en fejlmeddelelse, hvis der defineres en dato, der ligger uden for det gyldige interval.

I funktionen DateValue angives en streng, der indeholder datoen, hvorimod funktionen DateSerial evaluerer hver enkelt parameter (år, måned, dag) som separate numeriske udtryk.

Fejlkoder

5 Ugyldigt procedurekald

Eksempel:

Sub EksempelDateSerial

Dim lDato as Long

Dim sDato as String

lDato = DateSerial(1964, 4, 9)

sDato = DateSerial(1964, 4, 9)

Msgbox lDato REM returnerer 23476

msgbox sDato REM returnerer 09-04-1964

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker