Fungsi FormatDateTime [VBA]
Menerapkan format tanggal dan/atau waktu ke ekspresi tanggal dan mengembalikan hasilnya sebagai string.
FormatDateTime (DateExpression as Date [, NamedFormat as Integer])
String
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). |
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