DateSerial Function

Nagbabalik a Petsa halaga para sa isang tinukoy na taon, buwan, at araw.

DateSerial (taon, buwan, araw)

Petsa

taon: Integer na expression na nagpapahiwatig ng isang taon. Ang lahat ng mga halaga sa pagitan ng 0 at 99 ay binibigyang kahulugan bilang mga taong 1900-1999. Para sa mga taon na nasa labas ng saklaw na ito, dapat mong ilagay ang lahat ng apat na digit.

buwan: Integer na expression na nagpapahiwatig ng buwan ng tinukoy na taon. Ang tinatanggap na hanay ay mula 1-12.

Araw: Integer expression na nagsasaad ng araw ng tinukoy na buwan. Ang tinatanggap na hanay ay mula 1-31. Walang ibinalik na error kapag nagpasok ka ng hindi umiiral na araw para sa isang buwan na mas maikli sa 31 araw.

Ang DateSerial function ibinabalik ang bilang ng mga araw sa pagitan ng Disyembre 30,1899 at ang ibinigay na petsa. Maaari mong gamitin ang function na ito upang kalkulahin ang pagkakaiba sa pagitan ng dalawang petsa.

Ibinabalik ng DateSerial function ang uri ng data na Variant na may VarType 7 (Petsa). Sa panloob, ang halagang ito ay iniimbak bilang Double value, upang kapag ang ibinigay na petsa ay 1900-01-01, ang ibinalik na halaga ay 2. Ang mga negatibong halaga ay tumutugma sa mga petsa bago ang Disyembre 30, 1899 (hindi kasama).

Kung tinukoy ang isang petsa na nasa labas ng tinatanggap na hanay, ang LibreOffice Basic ay nagbabalik ng mensahe ng error.

Samantalang iyong tinukoy ang DateValue function bilang isang string na naglalaman ng petsa, ang DateSerial function sinusuri ang bawat isa sa mga parameter (taon, buwan, araw) bilang hiwalay na mga numeric na expression.

  Sub ExampleDateSerial
  Dim lDate As Long
  Dim sDate As String
      lDate = DateSerial(1964, 4, 9)
      sDate = DateSerial(1964, 4, 9)
      Ang MsgBox lDate ' ay nagbabalik ng 23476
      MsgBox sDate ' returns 1964-04-09 in ISO 8601 format
  End Sub