Memisahkan Komponen dari Suatu Tanggal

Memisahkan komponen dari suatu tanggal tertentu berdasarkan tipe datanya, apakah hari (d), bulan (m), atau tahun (yyyy) menggunakan fungsi DatePart.

Persiapan:
1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Ketik coding berikut ke dalam editor form yang bertalian.
Ketik coding berikut ini pada Form.

Code:

Private Sub Command1_Click()
Dim hari As Integer, bulan As Integer, tahun As Integer
hari = DateTime.DatePart(“d”, _
CDate(“22/01/1973”), _
vbUseSystemDayOfWeek, _
vbUseSystem) ‘Menghasilkan 22
bulan = DateTime.DatePart(“m”, _
CDate(“22/01/1973”), _
vbUseSystemDayOfWeek, _
vbUseSystem) ‘Menghasilkan 1
tahun = DateTime.DatePart(“yyyy”, _
CDate(“22/01/1973”), _
vbUseSystemDayOfWeek, _
vbUseSystem) ‘Menghasilkan 1973
MsgBox hari
MsgBox bulan
MsgBox tahun
End Sub

1 Komentar

  1. […] About Visual Basic: Source code log in, Source code kamus, Source code random chart, Source code cek status memory, Source code password generator, Source code auto starup, Command button, ComboBox, Tombol form lain, Tombol dari coding, Database1, Database2, Database3, Date and time, Date and time2, Date and time3, Date and time4, Date and time5, Date and time6, Date and time7, Date and time8, […]


Comments RSS TrackBack Identifier URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s