Sekian tahun pengalaman Rani bikin aplikasi dengan bahasa apapun hampir senantiasa terdapat pembuatan data berupa tanggal dan waktu. Lalu bagaimana Date dan Time pada VB.NET?
Membuat Objek DateTime
Dalam VB.NET sendiri ada tipe data yang bernama DateTime. Saat kita mendeklarasikan variable bertipe ini maka nilai default yang dihasilkan yakni 1/1/0001, 12:00 AM.
Dim dt As DateTime
MsgBox(dt.ToShortDateString & " " & dt.ToShortTimeString, , "Message")
Mendapatkan Tanggal dan Waktu Saat Ini
Bagaimana menerima tanggal dan waktu hari ini/dikala ini? Caranya memakai method Time dan Today.
Berikut ini pola penggunaan nya:
Dim strTanggal As String = Today
Dim strWaktu As String= Now
MsgBox("Tanggal : " & strTanggal & vbCrLf & _
"Saat Ini: " & strWaktu, , "Message")
Jika ingin memperlihatkan waktu saja (tanpa tanggal) berikut teladan nya:
MsgBox("Waktu Saat Ini: " & Now.ToLongTimeString, , "Message")
Kita juga mampu memformat waktu dan tanggal dengan format yang telah diputuskan, kita lihat list nya mirip pada teladan berikut:
Dim strDateTime As String = String.Empty
strDateTime = strDateTime & "Format G :" & Format(Now, "G") & vbCrLf
strDateTime = strDateTime & "Format D :" & Format(Now, "D") & vbCrLf
strDateTime = strDateTime & "Format d :" & Format(Now, "d") & vbCrLf
strDateTime = strDateTime & "Format T :" & Format(Now, "T") & vbCrLf
strDateTime = strDateTime & "Format t :" & Format(Now, "t") & vbCrLf
strDateTime = strDateTime & "Format F :" & Format(Now, "F") & vbCrLf
strDateTime = strDateTime & "Format f :" & Format(Now, "f") & vbCrLf
strDateTime = strDateTime & "Format M :" & Format(Now, "M") & vbCrLf
strDateTime = strDateTime & "Format m :" & Format(Now, "m") & vbCrLf
strDateTime = strDateTime & "Format R :" & Format(Now, "R") & vbCrLf
strDateTime = strDateTime & "Format r :" & Format(Now, "r") & vbCrLf
strDateTime = strDateTime & "Format s :" & Format(Now, "s") & vbCrLf
strDateTime = strDateTime & "Format U :" & Format(Now, "U") & vbCrLf
strDateTime = strDateTime & "Format u :" & Format(Now, "u") & vbCrLf
strDateTime = strDateTime & "Format Y :" & Format(Now, "Y") & vbCrLf
strDateTime = strDateTime & "Format y :" & Format(Now, "y") & vbCrLf
MsgBox(strDateTime, , "Message")
| Karakter | Keterangan |
| (:) | Pemisah waktu jam, menit dan detik. Contoh: 15:32:01 |
| (/) | Pemisah tanggal. Contoh: 11/24/2015 |
| (%) | Merupakan awalan yang dipakai untuk format yang cuma memakai 1 karakter. Contoh: kalau format ditulias "d" saja maka balasannya jadi 11/24/2015 sementara dengan "%d" jadi 24 |
| d | Untuk menciptakan kombinasi format angka tanggal tanpa angka 0 kalau tanggal di bawah tanggal 10. Untuk memperlihatkan hanya angka tanggal saja gunakan "%d" |
| dd | Format angka tanggal dengan angka 0 di depan tanggal yang di bawah tanggal 10 |
| ddd | Format untuk memperlihatkan nama hari dalam bahasa Inggris. Contoh: Sun, Mon, Tue, dst. |
| dddd | Format untuk memperlihatkan nama hari lengkap dalam bahasa Inggris (Contoh: Sunday, Monday, Tuesday, dst). |
| M | Untuk memperlihatkan angka bulan tanpa diawali 0 untuk bulan dibawah 10. Sama seperti d, bila memakai format 1 aksara saja gunakan %M. |
| MM | Untuk menampilkan angka bulan diawali 0 untuk bulan dibawah 10. (Contoh: 01/12/01). |
| MMM | Menampilkan abreviasi nama bulan dalam bahasa Inggris (Contoh: Jan, Feb, Mar, dst). |
| MMMM | Menampilkan nama bulan secara lengkap (Contoh: January, February, March, dst). |
| gg | Untuk memperlihatkan kala/era (Contoh: A.D.). |
| h | Menampilkan angka jam format 12 jam tanpa diawali 0 untuk di bawah jam 10 (Contoh: 1:15:15 PM). Gunakan %h kalau memakai format 1 karakter. |
| hh | Menampilkan angka jam format 12 jam diawali 0 untuk di bawah jam 10 (Contoh: 01:15:15 PM). |
| H | Menampilkan angka jam format 24 jam tanpa diawali 0 untuk di bawah jam 10 (Contoh: 13:15:15) Gunakan %H kalau memakai format 1 abjad. |
| HH | Menampilkan angka jam format 24 jam diawali 0 untuk di bawah jam 10 (Contoh: 02:10:15). |
| m | Menampilkan angka menit tanpa diawali 0 untuk angka di bawah 10 (contoh: 12:1:15). Gunakan %m kalau memakai format 1 huruf. |
| mm | Menampilkan angka menit diawali 0 untuk angka di bawah 10 (acuan: 12:01:15). |
| s | Menampilkan angka detik tanpa diawali 0 untuk angka di bawah 10 (acuan: 12:11:5). Gunakan %s bila menggunakan format 1 aksara. |
| ss | Menampilkan angka detik tanpa diawali 0 untuk angka di bawah 10 (teladan: 12:11:05). |
| f | Menampilkan per sepuluh dari detik, ff per seratus detik, fff perseribu dan seterusnya. Gunakan %f jikalau cuma menggunakan format 1 aksara. |
| t | Pada format 12 jam akan menampilkan A untuk waktu jam 12 malam sampai 11:59 siang. Dan P untuk 12 siang sampau 11:59 malam. Gunakan %t kalau hanya menggunakan format 1 huruf. |
| tt | Pada format 12 jam akan menampilkan AM untuk waktu jam 12 malam sampai 11:59 siang. Dan PM untuk 12 siang sampau 11:59 malam. Jika diletakan pada format 24 jam maka tidak akan ditampikan. |
| y | Menampilkan tahun dalam 2 digit terakhir tanpa angka 0 untuk angka 0-9. Gunakan %y jikalau memakai format 1 abjad. |
| yy | Menampilkan tahun dalam 2 digit terakhir dengan angka 0 untuk angka 0-9. |
| yyy | Menampilkan tahun 4 digit angka. |
| yyyy | Menampilkan tahun 4 digit angka. |
| z | Format untuk menampilkan selisih zona waktu yang digunakan tanpa diawali 0 untuk selisih dibawah 10. Gunakan %z untuk format menggunakan 1 aksara. Contoh: +7 |
| zz | Format untuk menampilkan selisih zona waktu yang digunakan diawali 0 untuk selisih dibawah 10. Contoh: +07 |
| zzz | Format untuk memperlihatkan selisih zona waktu dalam tampilan waktu hh:mm.Contoh: +07:00 |
Contoh Penggunaan:
Dim strDateTime As String = String.Empty
strDateTime = strDateTime & "Format M/d/yy :" & Format(Now, "M/d/yy") & vbCrLf
strDateTime = strDateTime & "Format d-MMM :" & Format(Now, "d-MMM") & vbCrLf
strDateTime = strDateTime & "Format d-MMMM-yy :" & Format(Now, "d-MMMM-yy") & vbCrLf
strDateTime = strDateTime & "Format d MMMM :" & Format(Now, "d MMMM") & vbCrLf
strDateTime = strDateTime & "Format MMMM yy :" & Format(Now, "MMMM yy") & vbCrLf
strDateTime = strDateTime & "Format hh:mm tt :" & Format(Now, "hh:mm tt") & vbCrLf
strDateTime = strDateTime & "Format h:mm:ss t :" & Format(Now, "h:mm:ss t") & vbCrLf
strDateTime = strDateTime & "Format H:mm :" & Format(Now, "H:mm") & vbCrLf
strDateTime = strDateTime & "Format H:mm:ss :" & Format(Now, "H:mm:ss") & vbCrLf
strDateTime = strDateTime & "Format M/d/yyyy H:mm :" & Format(Now, "M/d/yyyy H:mm")
MsgBox(strDateTime, , "Message")
1/1/0001, 12:00 AM
Click here if you like this article.
Sumber http://rani-irsan.blogspot.com
EmoticonEmoticon