Untuk mempermudah pemilihan tanggal kita akan menggunakan ZVDateTimeControls cara instalasinya bisa dilihat di wiki
Buat design aplikasi seperti gambar dibawah
Klik dua kali pada tombol Hitung edit biar tampilannya seperti dibawah ini
procedure TForm1.Button1Click(Sender: TObject); var sekarang : TDateTime; nanti : TDateTime; selisih : String; begin sekarang := ZVDateTimePicker3.Date; nanti := ZVDateTimePicker4.Date; selisih := IntToStr(DaysBetween(nanti,sekarang)); // hasilnya edit1.Text:= selisih; end;
dibagian uses paling atas tambahkan dateutils sehingga menjadi, karena fungsi DaysBetween ada disana.
uses Classes, SysUtils, mysql55conn, sqldb, db, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids, DbCtrls, StdCtrls, ZVDateTimePicker, dateutils;
Jalankan aplikasi dengan menekan tombol F9
