IBM Lotus Symphony
|
Returnerer en datoværdi for en angivet værdi med år, måned og dag.
DateSerial (År, Måned, Dag)
Dato
Å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.
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