Menghitung Denda Keterlambatan Pengembalian Buku Visual Basic

Seperti yang kita ketahui denda yaitu sebuah istilah / hukuman yang diberikan kepada seseorang alasannya yaitu 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 kawasan - kawasan pembayaran, menyerupai Bank, kawasan Asuransi, Kredit Kendaraan, dan kawasan peminjaman seuatu barang.

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

Catatan :
alasannya yaitu di tutorial ini memakai komponen DTPicker, maka sebelum anda memulai tutorial ini, pastikan anda sudah menambahkan komponen DT Picker terlebih dahulu,
untuk cara menambahkanya, anda dapat 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 menyerupai 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 menyerupai ini :

Catatan :
Untuk gambar tutorial aku buat dengan bahasa inggris, anda dapat menggantinya dengan kata yang gampang 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, "Routeros Mikrotik"
End If
End Sub

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

5. Jalankan Program

Ketika kegiatan di jalankan maka, isi dari DTPicker yaitu tanggal dikala kegiatan di jalankan, dan DTPitcker 1 dalam keadaan mati, untuk mecobanya, klik saja DTPicker 2, kemudian ubah tanggalnya sesuai cita-cita anda

Sekian tutorial kali ini,
Semoga bermanfaat