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

Share this

Related Posts

Previous
Next Post »

1 komentar:

komentar
August 9, 2016 at 1:35 PM delete

klo sebaliknya gimana pak ?
semisal 01/01/2000 + 35 hari = ?

Reply
avatar

bantu kami untuk lebih baik; jika ada hal yang kurang jelas atau broken link silahkan masukan komentar anda kami akan segera menanggapi dan memperbaikinya. login ke akun gmail anda untuk menampilkan form komentar.