Mencari selisih tanggal, bulan, dan tahun pada Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Mencari selisih tanggal, bulan, dan tahun pada Delphi


Siapkan program delphi.

1. Disini penulis menggunakan Delphi 7 (Script yang digunakan akan pula dapat digunakan/berkerja menggunakan versi Delphi yang lain).
2. Buat form baru lalu tata komponen sebagai berikut :
   Gunakan beberapa komponen DateTimePicker yang ada pada tab Additional dan tambahkan pula beberapa label, editText, dan bitBtn.
3. Tambahkan DateUtils pada Uses di script editor.
   
4. Tambahkan script pada event OnClick pada komponen Button dengan cara double klik pada komponen button.
   Pada script editor tambahkan script berikut :
   Edit1.Text := IntToStr(DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date)); //mencari selisih tanggal
   Edit2.Text := IntToStr(MonthsBetween(DateTimePicker1.Date,DateTimePicker2.Date)); //mencari selisih bulan
   Edit3.Text := IntToStr(YearsBetween(DateTimePicker1.Date,DateTimePicker2.Date)); //mencari selisih tahun
5. Kemudian jalankan (F9)

Catatan :
Pada versi Delphi 7 kebawah kita harus menambahkan Uses DateUtils secara manual.
From : Sini