Mencari Selisih Tanggal pada Komponen Datetime Picker

dalam beberapa kasus contohnya dalam proses pembutan program penyewaan, tentunya akan menjumpai selisih antar tanggal.
contoh kasus adalah ketika seseorang meminjam barang, baik itu rental mobil, atau buku, pada saat mengembalikan di tanggal itu, maka program harus bisa mendeteksi apakan waktu pengembaliana telat, atau tidak,. kemudian berapa dendanya begitu kan gan? hehee

oke gan untuk mencari selisih waktu pada delphi kita bisa menggunakan fungsi yang telah disediakan yaitu
DaysBetween

bentuk umumnya adalah
DaysBetween(Waktu1,Waktu2)

fungsi tersebut akan menghasilkan nilai balik berupa integer

contoh penerapanya adalah sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date);
Edit1.Text:=FloatToStr(a);
end;
contoh rancangan interfavenya sebagai berikut

contoh program selengkapnya bisa di download dengan klik link dibawah ini

https://drive.google.com/open?id=0B0T9jFZChgVIQ2NLcWJ3ZzZvUTg

salam berkarya gan