DateSerial Function

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

Syntax:


DateSerial(jaro, monato, tago)

Return value:

Dato

Parameters:

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.

Error codes:

5 Nevalida procedurvoko

Example:


  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