Mencari Selisih Hari (Delphi7)

Contoh program ini menggunakan bahasa pemrograman delphi 7 dan biasanya digunakan pada aplikasi sistem reservasi hotel. Sebelum membuat contoh ini tolong dipersiapkan komponen-komponen delphi 7 terlebih dahulu berikut ini.

1.       XPManifest1, untuk mempercantik tampilan aplikasi sesuai dengan tema windows masing-masing.

2.       DateTimePicker1, sebagai sebagai tanggal pemesanan dan disesuaikan dengan tanggal yang terletak pada sistem di windows.

3.       DateTimePicker2, sama seperti DateTimePicker1, tapi digunakan sebagai tanggal kedatangan.

4.       Label yang dinamakan “Angka”, sebagai hasil selisih dari  DateTimePicker1 dan DateTimePicker2.

Untuk mencari selisih hari dapat dilakukan dengan cara berikut ini.

Ø       Pada form cari “OnCreate” dan “OnShow” pada tab “Events” di “Object Inspector”. Kemudian masukkan sourcecode berikut.

//OnCreate, untuk mengatur DateTimePicker1 agar sesuai dengan tanggal saat melakukan run.

DateTimePicker1.DateTime:=Today;

//OnShow, untuk mengatur DateTimePicker2 agar sesuai dengan tanggal saat melakukan run.

DateTimePicker2.DateTime:=Today;

Ø       Pada DateTimePicker2 cari “OnCreate” pada tab “Events” di “Object Inspector”. Kemudian masukkan sourcecode berikut.

// OnCreate, untuk langsung menampilkan hasil pada label “Angka” saat DateTimePicker2 telah di klik.

Angka.Caption:=IntToStr(DaysBetween(DateTimePicker1.DateTime,DateTimePicker2.datetime));

Berikut adalah screenshot hasil run dari contoh program

Untuk lebih jelasnya mengenai contoh program ini silahkan download sourcecodenya disini.

Semoga bermanfaat.

 

sumber : http://info-tekom.blogspot.com

Posted in: Delphi