Fungsi FormatDateTime [VBA]

Menerapkan format tanggal dan/atau waktu ke ekspresi tanggal dan mengembalikan hasilnya sebagai string.

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

Sintaksis:


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

Nilai balikan:

String

Parameter:

Date: The date expression to be formatted.

NamedFormat: Sebuah opsi vbDateTimeFormat enumerasi menentukan format yang akan diterapkan pada ekspresi tanggal dan waktu. Jika dihilangkan, nilainya vbGeneralDate digunakan.

Format Tanggal dan Waktu (enumerasi vbDateTimeFormat)

Dinamakan konstan	Nilai	Keterangan
vbGeneralDate	0	Menampilkan tanggal dan/atau waktu sebagaimana ditentukan dalam pengaturan sistem Umum Tanggal Anda. Jika hanya tanggal, tidak ada waktu ditampilkan; Jika hanya waktu, tidak ada tanggal yang ditampilkan.
vbLongDate	1	Menampilkan tanggal menggunakan format penanggalan panjang yang ditentukan dalam pengaturan regional komputer Anda.
vbShortDate	2	Menampilkan tanggal menggunakan format penanggalan pendek yang ditentukan dalam pengaturan regional komputer Anda.
vbLongTime	3	Menampilkan waktu sebagaimana ditentukan dalam pengaturan sistem Waktu Lama Anda.
vbShortTime	4	Menampilkan waktu menggunakan format 24 jam (jj:mm).

Kode kesalahan:

13 Ketidakcocokan jenis

Contoh:


        REM  *****  BASIC  *****
        Option VBASupport 1
        Sub DateFormat
         Dim d as Date
         d = ("1958-01-29 00:25")
         msgbox("Format tanggal umum : " & FormatDateTime(d))
         msgbox("Long date format : " & FormatDateTime(d,vbLongDate))
         msgbox("Short date format : " & FormatDateTime(d,vbShortDate))
         msgbox("Format waktu panjang : " & FormatDateTime(d,3))
         msgbox("Format waktu pendek : " & FormatDateTime(d,vbShortTime))
        End Sub

Fungsi Tanggal dan Daktu VBA