DateTime Picker
Jalankan tekan F5, maka akan ditampilkan seperti dibawah ini :
Sintax :
DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker1.CustomFormat = ("dd/MM/yyyy")
DateTimePicker1.Value = Now ' untuk memberikan nilai tanggal sekarang pada DateTime Picker
ini dimasukan ke form_load :
Private Sub Form_Load()
DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker1.CustomFormat = ("dd/MM/yyyy")
DateTimePicker1.Value = Now
End Sub
Sintax dibawah adalah untuk mengambil nilai pada DateTime Picker tersebut
Dim dtLeave As Date
dtLeave = DateTimePicker1.Value.Date
Contoh pengambilan nilai tersebut dengan button klik
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim dtTanggal As Date
dtTanggal = DateTimePicker1.Value.Date
MessageBox.Show("Tanggal : " & dtTanggal & "")
End Sub
Contoh untuk format Data Time Picker :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
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")
End Sub
Hasil bisa dilihat pada layout :
Table Format Data Time :
| Format | Keterangan |
| : | Pemisah waktu jam, menit dan detik |
| / | Pemisah tanggal |
| % | Merupakan awalan yang digunakan untuk format yang hanya menggunakan 1 huruf |
| d | Untuk membuat kombinasi format angka tanggal tanpa angka 0 jika tanggal di bawah tanggal 10. Gunakan %d jika menggunakan format 1 huruf |
| dd | Format angka tanggal dengan angka 0 di depan tanggal yang di bawah tanggal 10 |
| ddd | Format untuk menampilkan nama hari dalam bahasa Inggris. ( Sun, Mon, Tue ) |
| dddd | Format untuk menampilkan nama hari lengkap dalam bahasa Inggris (Sunday, Monday, Tuesday). |
| M | Untuk menampilkan angka bulan tanpa diawali 0 untuk bulan dibawah 10. Gunakan %M jika menggunakan format 1 huruf |
| MM | Untuk menampilkan angka bulan diawali 0 untuk bulan dibawah 10. |
| MMM | Menampilkan singkatan nama bulan dalam bahasa Inggris ( Jan, Feb, Mar ). |
| MMMM | Menampilkan nama bulan secara lengkap ( January, February, March ). |
| gg | Untuk menampilkan era/periode |
| h | Menampilkan angka jam format 12 jam tanpa diawali 0 untuk di bawah jam 10. Gunakan %h jika menggunakan format 1 huruf |
| hh | Menampilkan angka jam format 12 jam diawali 0 untuk di bawah jam 10 |
| H | Menampilkan angka jam format 24 jam tanpa diawali 0 untuk di bawah jam 10. Gunakan %H jika menggunakan format 1 huruf |
| HH | Menampilkan angka jam format 24 jam diawali 0 untuk di bawah jam 10 |
| m | Menampilkan angka menit tanpa diawali 0 untuk angka di bawah 10. Gunakan %m jika menggunakan format 1 huruf |
| mm | Menampilkan angka menit diawali 0 untuk angka di bawah 10 |
| s | Menampilkan angka detik tanpa diawali 0 untuk angka di bawah 10. Gunakan %s jika menggunakan format 1 huruf |
| ss | Menampilkan angka detik tanpa diawali 0 untuk angka di bawah 10 |
| f | Menampilkan per sepuluh dari detik, ff per seratus detik, fff perseribu dan seterusnya. Gunakan %f jika hanya menggunakan format 1 huruf. |
| t | Format 12 jam akan menampilkan A untuk waktu jam 12 malam sampai 11:59 siang. & P untuk 12 siang sampau 11:59 malam. Gunakan %t jika hanya menggunakan format 1 huruf. |
| tt | Format 12 jam akan menampilkan AM untuk waktu jam 12 malam sampai 11:59 siang. & PM untuk 12 siang sampau 11:59 malam |
| 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. |
| zz | Format untuk menampilkan selisih zona waktu yang digunakan diawali 0 untuk selisih dibawah 10 |
| zzz | Format untuk menampilkan selisih zona waktu dalam tampilan waktu hh:mm |
Contoh Sintax :
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")
