DateTime Picker
Jalankan tekan F5, maka akan ditampilkan seperti dibawah ini :
Sintax :
' untuk format tanggal tersebutDateTimePicker1.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")
