Kamis, 11 April 2013

Menghitung Selisih Dua Tanggal Pada Delphi

Operasi Tanggal Seringkali Membingungkan kita dalam Implementasinya yang sebenarnya sangatlah mudah. kita terjebak oleh mindset kita sendiri karena terlalu banyak berfikir tanpa mencoba. padahal apa yang kita pikirkan belum tentu seperti apa yang akan terjadi. Seperti kata andrea hirata dalam buku maryamah karpovnya "Kesulitan akan mudah dipecahkan dengan merubah cara pandang" (Looh Kok Malah Bahas Novel). hehe

Okelah Kawan, Kita Fokus. Operasi Tanggal Kadang diperlukan dalam aplikasi yang kita buat. suatu misal dalam membuat aplikasi perpustakaan, aplikasi kredit dan lain sebagainya (Untuk menentukan lamanya Pinjaman). Nah, Karena hal tersebut (Operasi Tanggal) sangat diperlukan, admin ingin berbagi pengetahuan tentang cara menghitung selisih dua tanggal pada Delphi.

Lets Do It !

Pertama-tama Tambahkan Dua Buah Komponen DateTimePicker, Satu Buah Button dan 1 Buah Komponen Edit didalam Form Anda

Kedua, Klik Dua Kali Form Anda Lalu Masukan Code Ini :
Edit1.Text:=FloattoStr(StrtoDate(DateToStr(DateTimePicker2.Date))-StrtoDate(DateToStr(DateTimePicker1.Date)));

Berikut Hasilnya

Menghitung selisih dua tanggal

Tidak ada komentar:

Posting Komentar