Mencari selisih tanggal, bulan, dan tahun pada Delphi

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 :tata komponen (Mencari selisih tanggal, bulan dan tahun pada Delphi)
    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.
    Uses DateUtils (Mencari selisih tanggal, bulan, dan tahun pada Delphi)
  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
Title : 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