VB.NET: Bekerja Dengan Date dan Time (Tanggal & Waktu)

Sekian tahun pengalaman Rani bikin aplikasi dengan bahasa apapun hampir selalu terdapat pengolahan 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 adalah 1/1/0001, 12:00 AM.

Dim dt As DateTime
MsgBox(dt.ToShortDateString & " " & dt.ToShortTimeString, , "Message")

Mendapatkan Tanggal dan Waktu Saat Ini
Bagaimana mendapatkan tanggal dan waktu hari ini/saat ini? Caranya menggunakan method Time dan Today.
Berikut ini contoh penggunaan nya:
Dim strTanggal As String = Today
Dim strWaktu As String= Now
MsgBox("Tanggal : " & strTanggal & vbCrLf & _
       "Saat Ini: " & strWaktu, , "Message")

Jika ingin menampilkan waktu saja (tanpa tanggal) berikut contoh nya:
MsgBox("Waktu Saat Ini: " & Now.ToLongTimeString, , "Message")

Format Tanggal dan Waktu
Kita juga dapat memformat waktu dan tanggal dengan format yang sudah ditentukan, kita lihat list nya seperti pada contoh 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")

Pada Visual Basic .NET kita juga bisa membuat format tanggal sendiri dengan menggunakan karakter-karakter sebagai berikut:

Karakter	Keterangan
(:)	Pemisah waktu jam, menit dan detik. Contoh: 15:32:01
(/)	Pemisah tanggal. Contoh: 11/24/2015
(%)	Merupakan awalan yang digunakan untuk format yang hanya menggunakan 1 huruf. Contoh: jika format ditulias "d" saja maka hasilnya jadi 11/24/2015 sementara dengan "%d" jadi 24
d	Untuk membuat kombinasi format angka tanggal tanpa angka 0 jika tanggal di bawah tanggal 10. Untuk menampilkan hanya angka tanggal saja gunakan "%d"
dd	Format angka tanggal dengan angka 0 di depan tanggal yang di bawah tanggal 10
ddd	Format untuk menampilkan nama hari dalam bahasa Inggris. Contoh: Sun, Mon, Tue, dst.
dddd	Format untuk menampilkan nama hari lengkap dalam bahasa Inggris (Contoh: Sunday, Monday, Tuesday, dst).
M	Untuk menampilkan angka bulan tanpa diawali 0 untuk bulan dibawah 10. Sama seperti d, jika menggunakan format 1 huruf saja gunakan %M.
MM	Untuk menampilkan angka bulan diawali 0 untuk bulan dibawah 10. (Contoh: 01/12/01).
MMM	Menampilkan singkatan nama bulan dalam bahasa Inggris (Contoh: Jan, Feb, Mar, dst).
MMMM	Menampilkan nama bulan secara lengkap (Contoh: January, February, March, dst).
gg	Untuk menampilkan era/periode (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 jika menggunakan format 1 huruf.
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 jika menggunakan format 1 huruf.
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 jika menggunakan format 1 huruf.
mm	Menampilkan angka menit diawali 0 untuk angka di bawah 10 (contoh: 12:01:15).
s	Menampilkan angka detik tanpa diawali 0 untuk angka di bawah 10 (contoh: 12:11:5). Gunakan %s jika menggunakan format 1 huruf.
ss	Menampilkan angka detik tanpa diawali 0 untuk angka di bawah 10 (contoh: 12:11:05).
f	Menampilkan per sepuluh dari detik, ff per seratus detik, fff perseribu dan seterusnya. Gunakan %f jika hanya menggunakan format 1 huruf.
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 jika 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 jika menggunakan format 1 huruf.
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 huruf. Contoh: +7
zz	Format untuk menampilkan selisih zona waktu yang digunakan diawali 0 untuk selisih dibawah 10. Contoh: +07
zzz	Format untuk menampilkan 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.