FormatDateTime Function [VBA]

Naglalapat ng format ng petsa at/o oras sa isang expression ng petsa at ibinabalik ang resulta bilang isang string.

Ang pare-pareho, function o bagay na ito ay pinagana sa pahayag Opsyon VBASupport 1 inilagay bago ang executable program code sa isang module.

Syntax:


        FormatDateTime (Date As Date [, NamedFormat As Integer])

Uri ng pagbabalik:

String

Mga Parameter:

Petsa : Ang expression ng petsa na ipo-format.

NamedFormat : Isang opsyonal vbDateTimeFormat enumeration na tumutukoy sa format na ilalapat sa expression ng petsa at oras. Kung tinanggal, ang halaga vbGeneralDate ay ginagamit.

Mga format ng Petsa at Oras (vbDateTimeFormat enumeration)

Pinangalanang Constant	Halaga	Mga nilalaman
vbGeneralDate	0	Nagpapakita ng petsa at/o oras gaya ng tinukoy sa setting ng Pangkalahatang Petsa ng iyong system. Kung petsa lamang, walang oras na ipinapakita; Kung oras lamang, walang petsa na ipinapakita.
vbLongDate	1	Magpakita ng petsa gamit ang mahabang format ng petsa na tinukoy sa mga setting ng rehiyon ng iyong computer.
vbShortDate	2	Magpakita ng petsa gamit ang maikling format ng petsa na tinukoy sa mga setting ng rehiyon ng iyong computer.
vbLongTime	3	Nagpapakita ng oras gaya ng tinukoy sa mga setting ng Long Time ng iyong system.
vbShortTime	4	Magpakita ng oras gamit ang 24 na oras na format (hh:mm).

Mga error code:

13 Hindi tugma ang uri ng data

Halimbawa:


        REM  *****  BASIC  *****
        Option VBASupport 1
        Sub DateFormat
         Dim d as Date
         d = ("1958-01-29 00:25")
         msgbox("Pangkalahatang format ng petsa : " & FormatDateTime(d))
         msgbox("Mahabang format ng petsa : " & FormatDateTime(d,vbLongDate))
         msgbox("Maikling format ng petsa : " & FormatDateTime(d,vbShortDate))
         msgbox("Matagal na format : " & FormatDateTime(d,3))
         msgbox("Format ng maikling oras : " & FormatDateTime(d,vbShortTime))
        End Sub

Mga function ng Oras at Petsa ng VBA