Menghitung Selisih Hari, Minggu, Bulan, dan Tahun Menggunakan Datetimepicker : VB.Net

Gw posting source code kali ini untuk penghitungan selisih dari dua datetimepicker di VB.Net. Semoga dapat membantu teman-teman dalam pengerjaan sebuah aplikasi yang membutuhkan jumlah selisih waktu.

        Dim date1 As Date = DateTimePicker1.Value
Dim date2 As Date = DateTimePicker2.Value
Dim totalDays As Int32 = date1.DayOfYear – date2.DayOfYear
Dim totalWeeks As Int32 = date1.DayOfWeek – date2.DayOfWeek
Dim totalYears As Int32 = date1.Year – date2.Year
Dim totalMonths As Int32 = date1.Month – date2.Month
MessageBox.Show(“Periode Pinjaman = ” & totalYears.ToString & ” Years ” & totalMonths.ToString & ” Months ” & totalWeeks.ToString & ” Weeks ” & totalDays.ToString & ” Days “)

Cao!!!! ^-^V

source :  http://herosetyanofario.wordpress.com