Sekian tahun pengalaman Rani membuataplikasi dengan bahasa apapun nyaris selalu 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 ialah 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/dikala ini? Caranya memakai 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 pola nya: MsgBox( "Waktu Saat Ini: " & Now.ToLongTimeString, , "Message" ) Format Tanggal dan Waktu Kita juga mampu memformat waktu dan tanggal dengan format yang telah diputuskan, kita lihat list nya mirip pada acuan 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 menciptakan format tanggal sendiri dengan menggunakan karakter-aksara sebagai berikut: 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 menggunakan 1 karakter. Contoh: kalau format ditulias "d" saja maka balasannya jadi 11/24/2015 sementara dengan "%d" jadi 24 d Untuk menciptakan variasi format angka tanggal tanpa angka 0 bila 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, jika menggunakan format 1 abjad 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 menampilkan era/masa (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 aksara. 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 memakai format 1 aksara. 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 (pola: 12:1:15). Gunakan %m kalau memakai format 1 abjad. 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 (teladan: 12:11:5). Gunakan %s kalau menggunakan format 1 abjad. ss Menampilkan angka detik tanpa diawali 0 untuk angka di bawah 10 (acuan: 12:11:05). f Menampilkan per sepuluh dari detik, ff per seratus detik, fff perseribu dan seterusnya. Gunakan %f kalau 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 jikalau hanya menggunakan format 1 karakter. tt Pada format 12 jam akan memperlihatkan 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 memperlihatkan selisih zona waktu yang dipakai tanpa diawali 0 untuk selisih dibawah 10. Gunakan %z untuk format menggunakan 1 huruf. Contoh: +7 zz Format untuk memperlihatkan selisih zona waktu yang dipakai 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. Sumber http://rani-irsan.blogspot.com