DateValue Function

Nagbabalik a Petsa bagay mula sa isang string na kumakatawan sa isang petsa.

Ang ibinalik na bagay ay kinakatawan sa loob bilang isang solong numeric na halaga na tumutugma sa tinukoy na petsa. Maaaring gamitin ang halagang ito upang kalkulahin ang bilang ng mga araw sa pagitan ng dalawang petsa.

Syntax:


  DateValue(petsa Bilang String)

Mga Parameter:

petsa : Isang string na naglalaman ng petsa na mako-convert sa a Petsa bagay.

Ang string ay dumaan sa DateValue dapat ipahayag sa isa sa mga format ng petsa na tinukoy ng setting ng iyong lokal (tingnan ang - Mga Wika at Lokal - Pangkalahatan ) o gamit ang format ng petsa ng ISO na "yyyy-mm-dd" (taon, buwan at araw na pinaghihiwalay ng mga gitling).

Ibinalik na halaga:

Date.

Mga error code:

5 Di-wastong procedure call

Halimbawa:


  Sub ExampleDateValue
      Dim aDate As Date
      aDate = DateValue("2021-12-20")
      ' Ini-print ang lokal na petsa
      MsgBox aDate
      ' Kinukuha ang taon, buwan at araw mula sa object ng petsa
      MsgBox Year(aDate)
      MsgBox Month(aDate)
      MsgBox Day(aDate)
      ' Nagpi-print ng numeric na halaga na tumutugma sa petsa (bilang Long type)
      MsgBox CLng(aDate)
  End Sub

DateSerial Function