Cara Menghitung Denda Peminjaman Buku Menggunakan Delphi

Perhatikan desain form berikut.

Ketikkan Scribs berikut di DateTimePicker2: Object Inspector à Event à OnChage

Var a:integer; b:string;

Begin

b:= IntToStr(trunc(DateTimePicker2.Date)-trunc(DateTimePicker1.Date));

Edit1.Text:=IntToStr(strtoint(b)-7);

if StrToInt(Edit1.Text) > 0 then

begin

a:=(StrToInt(Edit1.Text))*500;

Edit2.Text:=FloatToStr(a);

end

else

begin

Edit2.Text:='Tidak Ada Denda';

end;

end;

Scribs di atas, menggunakan system denda jika pengembalian lewat dari 7 hari, dan dikenakan denda sebesar Rp. 500 per hari lewat. Artinya, ketentuan yang ini bisa Anda rubah sendiri tergantung kebutuhan (aturan berlaku).

Semoga bermanfaat.