Membuat Perhitungan Denda Berdasarkan Waktu Pada Delphi

Perhitungan Waktu Otomatis Pada Delphi

Selamat malam bagi anda sobat, kenapa malam yah karna saya nulisnya malam..!!
Oke cukup pembukaanya sekarang tinggal pembahasanya.

Pada malam hari ini saya akan membuat tutorial sederhana dengan judul 'Membuat Perhitungan Denda Berdasarkan Waktu Pada Delphi',

ya kode ini penting jika aplikasi sobat mengandung perhitungan denda sabagai contoh aplikasi perpustakaan dan aplikasi kredit barang dan masih banyak lagi,

Langsung saja sobat buka aplikasi delphi sobat, buat sebuah Form baru lalu tambahkan komponen berikut :

1. Datetimepicker 2 buah
2. label 4 buah

Setelah komponen di tambahkan rename masing-masing komponen :

1. Datetimepicker1 = Tanggal_Pinjam
2. Datetimepicker2 = Tanggal_Kembali
3. label1 = Tetap
4. label2 = Tetap
5. label3 = Tetap
6. label4 = Denda
7. label5 = labeldenda

Klik dua kali pada Tanggal_Kembali dan masukan Syntax kode di bawah :

[
procedure TForm1.Tanggal_KembaliChange(Sender: TObject);
var
a:Integer;
b:String;
begin
b:= IntToStr(trunc(Tanggal_Kembali.Date)-trunc(Tanggal_Pinjam.Date));
label2.caption:=IntToStr(strtoint(b)-6);
if StrToInt(Label2.Caption) > 0 then
begin
Label1.caption:='Lebih';
Label3.caption:='hari';
a:=StrToInt(Label2.Caption)*500;
labeldenda.caption:=IntToStr(a);
end else
begin
Label1.caption:='';
Label3.caption:='';
Label2.Caption:='Tidak dikenakan Denda';
labeldenda.caption:='0';
end;
end;
]

Sekian Dan Trimakasih