DateSerial funktsioon

Tagastab nÀidatud aasta, kuu ja kuupÀevaga Date-vÀÀrtuse.

SĂŒntaks:


DateSerial (year, month, day)

TagastusvÀÀrtus:

KuupÀev

Parameetrid:

Year: aastat nÀitav tÀisarvavaldis. VÀÀrtusi vahemikus 0 kuni 99 tÔlgendatakse aastatena 1900-1999. Sellest vahemikust vÀljaspool olevate aastate korral tuleb sisestada kÔik neli numbrit.

Month: mÀÀratud aasta kuud nÀitav tÀisarvavaldis. Sobiv vahemik on 1-12.

Day: mÀÀratud kuu pĂ€eva nĂ€itav tĂ€isarvavaldis. Sobiv vahemik on 1-31. LĂŒhemate kui 31-pĂ€evaste kuude puhul ei tagastata olematu pĂ€eva sisestamisel veateadet.

DateSerial funktsioon tagastab ajavahemikus 30. detsembrist 1899 tÀnase kuupÀevani olevate pÀevade arvu. Selle funktsiooni abil saad arvutada kahe kuupÀeva vaheliste pÀevade arvu.

DateSerial fuktsioon tagastab andmetĂŒĂŒbi Variant tĂŒĂŒbiga VarType7 (KuupĂ€ev). Sisemiselt salvestatakse see vÀÀrtus topeltvÀÀrtusena, seega kui kuupĂ€ev on 1.1.1900, siis tagastatav vÀÀrtus on 2. Negatiivsed vÀÀrtused vastavad kuupĂ€evadele enne 30. detsembrit 1899 (v.a).

Kui defineeritud kuupÀev asub vÀljaspool lubatud piire, siis tagastab LibreOffice BASIC veateate.

Kui mÀÀratled DateValue funtsiooni kuupÀeva sisalava stringina, hindab DateSerial funktsioon kÔiki parameetreid (aasta, kuu, pÀev) eraldi arvavaldistena.

Veakoodid:

5 Vigane protseduuri vÀljakutse

NĂ€ide:


Sub ExampleDateSerial
Dim lDate As Long
Dim sDate As String
    lDate = DateSerial(1964, 4, 9)
    sDate = DateSerial(1964, 4, 9)
    msgbox lDate REM tagastab 23476
    msgbox sDate REM tagastab 04/09/1964
End Sub

Palun toeta meid!