Lompat ke konten Lompat ke sidebar Lompat ke footer

Membuat Perhitungan Denda Berdasarkan Waktu Pada Delphi


Perhitungan 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


Posting Komentar untuk "Membuat Perhitungan Denda Berdasarkan Waktu Pada Delphi"