DateSerial Function

Liveras Date (datan) valoron por specifita jaro, monato aŭ tago.

Sintakso:

DateSerial(jaro, monato, tago)

Liverota valoro:

Dato

Parametroj:

Year: Entjera esprimo kiu signifas jaron. Ĉiuj valoroj inter 0 kaj 99 interpretiĝas kiel jaroj 1900-1999. Por jaroj ekster tiu amplekso, necesas enmeti ĉiujn kvar signojn.

Month: Entjera esprimo kiu signifas la monaton de la specifita jaro. La akceptebla amplekso estas 1-12.

Day: Integer expression that indicates the day of the specified month. The accepted range is from 1-31. No error is returned when you enter a non-existing day for a month shorter than 31 days.

La funkcio DateSerial liveras la nombron da tagoj inter la 30a decembro 1899 kaj la donita dato. La funkcio estas uzebla por kalkuli la diferencon inter du datoj.

La funkcio DateSerial liveras la datuman tipon Variant kun VarType 7 (Date). Interne, tiu valoro konserviĝas kiel duobla valoro por ke kiam la donita dato estas 1900-01-01, la liverita valoro estas 2. Negativaj valoroj korespondas al datoj antaŭ 1899-12-30 (neinkluzive).

Se la cela dato troviĝas ekster la akceptebla amplekso, LibreOffice Basic liveras prieraran mesaĝon.

Kvankam oni difinas la funkcion DateValue kiel ĉenon kiu enhavas la daton, la funkcio DateValue kalkulas ĉiun parametron (jaron, monaton, tagon) kiel apartajn numerajn esprimojn.

Ekzemplo:

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