Fungsi FormatDateTime [VBA]

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

warning

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


Sintaksis:


        FormatDateTime (DateExpression as Date [, NamedFormat as Integer])
    

Nilai balikan:

String

Parameter:

DateExpression: Ekspresi tanggal yang akan diformat.

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

Deskripsi

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
    

Mohon dukung kami!