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.

Ang DateSerial function ibinabalik ang uri ng data na Variant na may VarType 7 (Petsa). Sa panloob, iniimbak ang halagang ito bilang Double value, upang kapag ang ibinigay na petsa ay 1.1.1900, 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
      Ang MsgBox sDate ' ay nagbabalik noong 04/09/1964
  End Sub