IBM Lotus Symphony
|
Returnerer en Dato-verdi for et år, en måned eller en dag som angis.
DateSerial (år, måned, dag)
Dato
År: Heltallsuttrykk som angir et år. Alle verdier mellom 0 og 99 blir tolket som årene 1900-1999. For år som ligger utenfor dette området, må du angi alle fire sifrene.
Måned: Heltallsuttrykk som angir måneden i det angitte året. Godtatte verdier er 1-12.
Dag: Heltallsuttrykk som angir dagen i den angitte måneden. Godtatte verdier er 1-31. Det blir ikke returnert en feil hvis du angir en dag som ikke finnes i en måned med færre enn 31 dager.
DateSerial-funksjonen returnerer antall dager mellom 30. desember 1899 og den gitte datoen. Du kan bruke denne funksjonen til å beregne differansen mellom to datoer.
DateSerial-funksjonen returnerer datatypen Variant med VarType 7 (Dato). Internt blir denne verdien lagret som en dobbel verdi, slik at når den gitte datoen er 1.1.1900, blir den returnerte verdien 2. Negative verdier tilsvarer datoer før 30 desember 1899 (ikke inklusive).
Hvis en dato defineres som ligger utenfor det aksepterte området, returnerer Lotus Symphony Basic en feilmelding.
Selv om du kan definere DateValue-funksjonen som en streng som inneholder datoen, vurderer DateSerial-funksjonen hver av parameterne (år, måned, dag) som separate numeriske uttrykk.
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 REM returnerer 04/09/1964
end sub