MENGETAHUI
TANGGAL AKHIR BULAN
Untuk mencetak laporan
pada tiap bulan, anda pasti harus menentukan tanggal awal dan akhir pada bulan
tersebut. Tutorial kali ini berfungsi untuk mengetahui tanggal akhir pada
masing- masing bulan secara otomatis.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Aktifkan komponen Microsoft WindowsCommon Controls-2 6.0 ke dalam Toolbox seperti langkah pada tutorial
sebelumnya.
3.
Kemudian masukkan sebuah komponen DTPicker ke dalam area form dan ubahlah
beberapa properties seperti gambar di bawah ini:
4.
Selanjutnya tambahkan juga sebuah
komponen CommandButton ke dalam area
form.
5.
Setelah itu klik ganda pada komponen CommandButton dan ketiklah perintah
dibawah ini.
|
1
2
3
4
5
6
|
Private
Sub Command1_Click()
Dim akhir As Date
akhir = DateAdd("m",
DateDiff("m", 0, DTPicker1.Value), 1)
MsgBox "tanggal akhir pada bulan
" & Format(DTPicker1.Value, "MMMM yyyy") & "
adalah " & akhir, , "tanggal akhir pada bulan"
End
Sub
|
Keterangan Kode
2
3
4
|
Mendeklarasikan
variabel hari dengan tipe data date.
Perintah
DateAdd berfungis untuk
mengambalikan nilai tanggal perhari saat ini, sedangkan perintah DateDiff berfungsi untuk
mengembalikan selisih waktu antara suatu tanggal dengan tanggal lainnya.
Enampilkan
kotak pesan untuk menampilkan tanggal akhir pada bulan yang anda pilih pada
komponen DTPicker.
|
6.
Untuk mencoba hasilnya tekan tombol F5.
EmoticonEmoticon