(DELPHI) Sistem Menghitung Denda Sewa

It's time to make a coding post !!!
Kembali yody akan memposting tentang delphi. Yupz Delphi again !!
Kali ini yOdy akan membahas tentang bagaimana cara menghitung denda secara otomatis.

Baiklah, berikut kodingnya :

procedure TPengembalian.FilmChange(Sender: TObject);
   var
   denda: extended;
   x,z: real;
   v : Integer;
   y,beban: String;

begin
with QKembali do
   begin
   Close;
   SQL.Clear;
   SQL.Add('Select * from sewa where ID_FILM LIKE ''%'+Film.text+'%''');
   Open;
   end;
DTPPinjam.Date:=QKembali.Fields[3].asdatetime;
DTPBalik.Date:=QKembali.Fields[4].asdatetime;

begin
   IF now()>DTPBalik.DateTime THEN
   begin
   x:=(now()-DTPBalik.DateTime);
   y:=FloatToStr(round(x));
   z:=StrToCurr(y);
   v:=StrToInt(y);
   denda:=z*1000;
   beban:=CurrToStr(denda);
   EDenda.Text:= IntToStr(v);
   EBiayaDenda.text:= beban;
   end;
IF now() begin
EDenda.Text := '0';
EBiayaDenda.Text := '0';
end;
end;
end;

 Nah, bingung kan. Untuk mengurangi rasa bingung kalian, berikut ini ada beberapa penjelasan yang bisa yOdy jelaskan. Let's Check This Out !!!

1. Bagian method ini dijalankan pada saat button hitung denda ditekan.
2. Penjelasan berbagai jenis properti yang digunakan :

• TPengembalian (Button Pengembalian)
• EDenda (TextField yang menampilkan subdenda)
• EBiayaDenda (TextField yang menampilkan keseluruhan/total denda)
• DTPBalik (DateTimePicker yang akan menampilkan tanggal denda)
• DTPPinjam (DateTimePicker yang akan menampilkan tanggal peminjaman)

1. Fungsi-fungsi konversi yang digunakan :

• now() = Menampilkan tanggal hari ini.
• IntToStr = Mengkonversi Integer ke String.
• FloatToStr = Mengkonversi Nilai Float (Bilangan Mengambang) ke String
• StrToCurr = Mengkonversi String ke Currency (Mata Uang).
• StrToInt = Mengkonversi String ke Integer.
• round (x) = Membulatkan nilai X.

Okelah, cukup sekian koding yang bisa saya sampaikan, lebih dan kurang saya mohon maap.
Tetap Semangat dan Selalu Berkoding Ria !!!!!!!!!

Terimakasih...