Menampilkan Tanggal Bulan Tahun Dengan Perulangan

Hay gan...jumpa lagi dengan saya,heheh. Pada kesempatan kali ini saya akan membahas tentang cara menampilkan tanggal, bulan,dan tahun dengan perulangan di Visual Basic. Jika anda merasa kesulitan menampilkan tanggal ketika membuat program menggunakan visual basic / vb 6, alangkah baiknya gunakanlah fungsi perulangan pada vb. Ya! benar. Perulangan For..Next. Nah dalam postingan ini saya akan membagikan cara menampilkan tanggal, bulan dan tahun lewat combobox menggunakan perulangan For..Next. Untuk itu silahkan simak baik-baik caranya di bawah ini:

1. Desain Form seperti ini gan

Komponen: 3 combo box dan 1 label (untuk judul program)
Ubah nama combobox masing-masing: ctanggal, cbulan, ctahun

2. Kemudian tambahkan script pada Form Load / Activate

Private Sub Form_Load()
ctanggal.Text = "---Pilih---"
cbulan.Text = "---Pilih---"
ctahun.Text = "---Pilih---"
For i = 1 To 31
Me.ctanggal.AddItem (Str(i))
Next i
For i = 1 To 12
Me.cbulan.AddItem (MonthName(i))
Next i
For i = 1990 To Year(Now)
Me.ctahun.AddItem (Str(i))
Next i
End Sub

Oke gan, sekian dari saya. Semoga Bermanfaat