2. Atur di properties setiap komponen
Datetimepicker1
Name : datepinjam
Datetimepicker2
Name : datekembali
Label ke 1
Name : label1
Label ke 2
Name : label2
Label ke 3
Name : label3
Label ke 4
Name : label4
Caption : Denda
Label ke 5
Name : labeldenda
3. Klik satu kali komponen Datekembali, pada pilihan menu Events (biasanya di samping properties)
pilih Events OnChange (double klik pada kolom kosong di sampingnya).
4. Kalau berhasil anda akan masuk ke Unit.pas-nya dan pointer crusor anda berada
di area procedure TForm1.datekembaliChange(Sender: TObject);
5. Lalu paste-kan source kode berikut (PASTIKAN DI ATAS VARIABEL TIDAK ADA BEGIN) :
procedure TForm1.datekembaliChange(Sender: TObject);
var a:Integer;
b:String; //membuat variabel bantu
begin
b:= IntToStr(trunc(datekembali.Date)-trunc(dateharuskembali.Date)); //menghitung selisih hari
label2.caption:=IntToStr(strtoint(b)-6); //pengurangan dengan hari max peminjaman -1
if StrToInt(Label2.Caption) > 0 then //apakah selisih hari > dari 6 ???
begin //jika ya
Label1.caption:='Lebih';
Label3.caption:='hari';
a:=StrToInt(Label2.Caption)*500;
labeldenda.caption:=IntToStr(a);
end
else
begin //jika tidak
Label1.caption:='';
Label3.caption:='';
Label2.Caption:='Tidak dikenakan Denda';
labeldenda.caption:='0';
end;
end;
6. Tinggal kita TEST(F9).
Atau anda ingin tambahan agar TANGGAL di Datetimepicker OTOMATIS MENYESUAIKAN TANGGAL HARI INI???
Caranya :
1. Klik area yang kosong pada form (agar yang tepilih Form-nya, bukan komponen yang lain)
2. Pada menu Events Form.OnShow double klik sama seperti yang diatas,
3. Masukkan source kode berikut
datekembali.Date:=Now;
4. Tinggal kita coba TEST(F9).
Perlu kawan-kawan ketahui bahwasannya.. :P
“form/source kode ini saya penggal dari form pengembaliaan di salah satu Program Perpustakaan yang saya buat. Dimana dengan ketentuan yang telah saya buat di FORM tersebut adalah :
peminjaman maksimal adalah tujuh hari saja, untuk selebihnya akan dikenakan denda Rp.500/hari”
#wahh.. kata-katanya sok nii! :D
*sok apa ya?
#sok ..mangga di praktikkan :D
