DateSerial Function

DateSerial palauttaa Date-tyyppisen arvon määrätystä vuodesta, kuukaudesta tai päivästä.

Syntaksi:

DateSerial (vuosi1, kuukausi1, pv1)

Palautusarvo:

Päivämäärä

Parametrit:

Vuosi1: kokonaislukulauseke, joka tarkoittaa vuotta. Arvot väliltä 0...99 tulkitaan vuosiksi 1900-1999. Tämän aikavälin ulkopuoliset vuodet on kirjoitettava neljällä numerolla.

Kuukausi1: kokonaislukulauseke, joka tarkoittaa määrätyn vuoden kuukautta. Sallitut arvot ovat 1...12.

Pv1: kokonaislukulauseke, joka tarkoittaa määrätyn kuukauden päivää. Sallitut arvot ovat välillä 1...31. Virheilmoitusta ei tule, jos syötetään kalenteriin kuulumaton päivä kuukaudelle, joka on lyhyempi kuin 31 päivää.

DateSerial-funktio palauttaa päivien määrän joulukuun 30.1899 ja annetun päivämäärän välillä. Funktiota voi käyttää kahden päiväyksen päivämääräeron laskemiseen.

DateSerial-funktio palautusarvo on variant-tietotyyppiä, jossa VarType-määre on 7 (Date). Sisäisesti tämä arvo on talletettu double-tyyppisenä kaksoistarkkuuden liukulukuna, niin että annettaessa päivämäärä 1.1.1900 palautusarvo on 2. Negatiiviset arvot vastaavat päivämääriä ennen joulukuun 30. 1899 (ei lueta mukaan).

Annettaessa päivämäärä, joka on hyväksytyn arvovälin ulkopuolella, LibreOfficeDev Basic palauttaa virheilmoituksen.

Kun DateValue-funktiossa määritellään merkkijono, jossa on päivämäärä, DateSerial-funktiossa kukin parametri (vuosi, kuukausi, vuorokausi) käsitellään erillisenä numeerisena lausekkeena.

Error codes:

5 Virheellinen proseduurikutsu

Esimerkki:

Sub ExampleDateSerial

Dim lDate As Long

Dim sDate As String

    lDate = DateSerial(1964, 4, 9)

    sDate = DateSerial(1964, 4, 9)

    msgbox lDate ' palauttaa arvon 23476

    msgbox sDate ' palauttaa 09.04.1964

End Sub