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.
FormatDateTime (Date As Date [, NamedFormat As Integer])String
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). |
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