Funkce DateSerial
VrátĂ hodnotu Date pro urÄŤenĂ˝ rok, mÄ›sĂc, nebo den.
Syntaxe:
DateSerial (year, month, day)
Návratová hodnota:
Datum
Parametry:
Year: ÄŚĂselná hodnota urÄŤujĂcĂ rok. Všechny hodnoty mezi 0 a 99 se interpretujĂ jako roky 1900-1999. Pro roky mimo tento rozsah musĂte pouĹľĂt ÄŤtyĹ™i ÄŤĂslice.
Month: ÄŚĂselná hodnota urÄŤujĂcĂ mÄ›sĂc v urÄŤenĂ©m roce. PovolenĂ˝ rozsah je 1-12.
Den: ÄŚĂselná hodnota urÄŤujĂcĂ den urÄŤenĂ©ho mÄ›sĂce. PovolenĂ˝ rozsah je 1-31. Pokud zadáte neexistujĂcĂ ÄŤĂslo dne pro mÄ›sĂc kratšà neĹľ 31 dnĂ, nenĂ vrácena žádná chyba.
Funkce DateSerial vracĂ poÄŤet dnĂ mezi 30. prosincem 1899 a urÄŤenĂ˝m datem. PomocĂ tĂ©to funkce je moĹľnĂ© vypoÄŤĂtat rozdĂl mezi dvÄ›ma daty.
Funkce DateSerial vracĂ typ Variant s VarType 7 (Date). InternÄ› se tato hodnota ukládá jako Double, takĹľe je-li zadáno datum 1.1.1900, vrátĂ hodnotu 2. ZápornĂ© hodnoty odpovĂdajĂ datĹŻm pĹ™ed 30. prosincem 1899 (nenĂ zahrnut).
Pokud definované datum ležà mimo povolený rozsah, LibreOffice Basic zobrazà chybovou zprávu.
ZatĂmco ve funkci DateValue zadáváte Ĺ™etÄ›zec obsahujĂcĂ datum, funkce DateSerial zpracovává kaĹľdĂ˝ parametr (rok, mÄ›sĂc, den) jako samostatnĂ˝ ÄŤĂselnĂ˝ vĂ˝raz.
PĹ™Ăklad:
Sub ExampleDateSerial
Dim lDate As Long
Dim sDate As String
lDate = DateSerial(1964, 4, 9)
sDate = DateSerial(1964, 4, 9)
MsgBox lDate ' vrátà 23476
MsgBox sDate ' vrátà 04/09/1964
End Sub