Siapkan program delphi.
- Disini penulis menggunakan Delphi 7 (Script yang digunakan akan pula dapat digunakan/berkerja menggunakan versi Delphi yang lain).
- 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. - Tambahkan DateUtils pada Uses di script editor.
- 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 - Kemudian jalankan (F9)
Pada versi Delphi 7 kebawah kita harus menambahkan Uses DateUtils secara manual.
From : Sini
Title : Mencari selisih tanggal, bulan, dan tahun pada Delphi
Description : Mencari selisih tanggal, bulan, dan tahun pada Delphi
Description : Mencari selisih tanggal, bulan, dan tahun pada Delphi
0 Response to "Mencari selisih tanggal, bulan, dan tahun pada Delphi"
Post a Comment