Berikut ini kita akan mencoba untuk melakukan penghitungan selisih waktu yang dimulai dari selisih hari dan kemudian dilanjutkan ke yang lebih detail yaitu menghitung selisih jam, menit dan detik dari dua data waktu yang dibandingkan.
Perhitungan selisih waktu ini biasanya digunakan pada aplikasi parkir otomatis, perpustakaan, rental DVD dan lebih banyak lagi. Selanjutnya kita langsung aja menuju studi kasus biar lebih jelas.
Studi Kasus 1
(menghitung selisih hari antara tanggal 12-10-2011 sampai 18-10-2011 format tgl dd/mm/yyyy)
Cara 1--->>
date1=CTOD("10-18-2011")
date2=CTOD("10-12-2011")
selisih=date1-date2
Cara 2--->>
date1=DATETIME(2011,10,18,0,0,0)
date2=DATETIME(2011,10,12,0,0,0)
selisih=ROUND((date1-date2)/(3600*24),0)
Variable selisih berisi jumlah selisih hari dari 2 tanggal 12-10-2011 dan 18-10-2011
Studi Kasus 2
(menghitung selisih jam antara tanggal 12-10-2011 pukul 20:30:23 sampai 18-10-2011 pukul 10:15:10 format tgl dd/mm/yyyy dan format waktu hh:mm:ss)
date1=DATETIME(2011,10,18,10,15,10)
date2=DATETIME(2011,10,12,20,30,23)
selisih=date1-date2
menit=FLOOR(MOD(selisih,3600)/60)
detik=MOD(MOD(selisih,3600),60)
detik=MOD(MOD(selisih,3600),60)
Selisih kedua waktu diatas diterjemahkan dalam variable jam, menit dan detik.
SELAMAT MENCOBA...!!
1 komentar:
Nice artikel. Salam blogger. Kunjungi juga
Cara mendapatkan jam, waktu dan tanggal di komputer dengan VB6 | Belajar dan berbagi Tutorial Visual Basic
Posting Komentar