Menghitung Denda Keterlambatan Pengembalian Buku Visual Basic

Seperti yang kita ketahui denda adalah sebuah istilah / sanksi yang diberikan kepada seseorang karena orang tersebut tidak menepati apa yang telah di sepakati berupa penambahan (bisa materi maupun non materi) yang tentunya sudah di sepakati, istilah denda ini sering kita jumpai di tempat - tempat pembayaran, seperti Bank, tempat Asuransi, Kredit Kendaraan, dan tempat peminjaman seuatu barang.

Dan untuk program visual basic yang akan buat kali ini, kita akan mengambil konsep peminjaman buku di sebuah perpustakaan, di mana ketika seseorang akan mengembalikan buku ke perpustakaan, pegawai perpustakaan akan mengecek kapan tanggal buku tersebut harus di kembalikan, jika melebihi dari waktu yang sudah di tentukan, maka orang yang mengembalikan buku tersebut akan mendapatkan denda, Baiklah berikut tutorialnya :

Catatan :
karena di tutorial ini menggunakan komponen DTPicker, maka sebelum anda memulai tutorial ini, pastikan anda sudah menambahkan komponen DT Picker terlebih dahulu,
untuk cara menambahkanya, anda bisa melihatnya di tutorial ini :
Cara Menambahkan Komponen Tambahan Di Visual Basic

1. Pertama jalankan VB dengan project standar EXE
2. Lalu tambahkan 4 label, 1 command button, 1 text box dan 2 DTPicker
3. Jika sudah atur tampilan dan propertinya seperti ini :

Tool Box	Properties	Keterangan
Form 1	Statr Up Position	Center Screen
DTPicker 1	Enable	False
Label 1	Caption	(JUDUL PROGRAM)
Label 2	Caption	(Tanggal Hari ini)
Label 3	Caption	(Tanggal Harus Kembali)
Label 4	Caption	(Denda)
Text 1	Caption	(Kosong)
Command 1	Caption	Check
All	Font Size	10

sehingga seperti ini :

Catatan :
Untuk gambar tutorial saya buat dengan bahasa inggris, anda bisa menggantinya dengan kata yang mudah anda pahami

4. Lalu tuliskan script berikut :

Private Sub Command1_Click()
mulct = DateDiff("d", DTPicker1.Value, DTPicker2.Value)
If mulct < 0 Then
mulct = mulct * -1
Text1 = "$ " & mulct
Else
MsgBox "Thank You For On Time", vbInformation, "Blues Pedia"
End If
End Sub

Private Sub Form_Load()
DTPicker1.Value = Now
DTPicker2.Value = Now
End Sub

5. Jalankan Program

Ketika program di jalankan maka, isi dari DTPicker adalah tanggal ketika program di jalankan, dan DTPitcker 1 dalam keadaan mati, untuk mecobanya, klik saja DTPicker 2, lalu ubah tanggalnya sesuai keinginan anda

Sekian tutorial kali ini,
Semoga bermanfaat