DateSerial Function

Returns a Date value for a specified year, month, and day.

Syntaksi:


DateSerial (vuosi1, kuukausi1, pv1)

Paluuarvo:

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, LibreOffice 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.

Virhekoodit:

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