Menghitung Selisih Jam dan Tanggal

PREFACE
oprasi Jam dan Tanggal pada suatu aplikasi database seringkali ditemukan, misalnya menghitung selisih antara jam masuk kerja dengan jam keluar kerja sehingga diperoleh total jam kerja bagi setiap pegawai. Begitu pula ada kalanya kita dihadapkan pada permasalahan menghitung selisih dua buah tanggal.

Untungnya pada VB.Net, fungsi-fungsi untuk melakukan hal tersebut sudah ada, kita tinggal mengembangkannya. sebagaimana pada tulisan berikut ini yang akan sedikit membahas tentang fungsi-fungsi tersebut.

Untuk menghitung selisih dua buah jam atau tanggal kita bisa memanfaatkan fungsi .subtract dari Class TimeSpan dan Date.
Lebih jelasnya lihat dan pelajari kode program di bawah ini.
berikut ini ada tiga fungsi yang saya buat untuk melakukan pengitungan selisih 2 buah jam dan selisih 2 buah tanggal, serta sebuah fungsi untuk mendapatkan nama hari dari tanggal yang dientry-kan, sbb :

FUNGSI TimeDifCalc
Berfungsi untuk menghitung selisih 2 buah jam.

Private Function TimeDifCalc(ByVal myTime1 As String, ByVal myTime2 As String) As Double
Dim T1 As TimeSpan
Dim T2 As TimeSpan
Try
T1 = New TimeSpan(Val(Mid(myTime1, 1, 2)), Val(Mid(myTime1, 4, 2)), 0)
T2 = New TimeSpan(Val(Mid(myTime2, 1, 2)), Val(Mid(myTime2, 4, 2)), 0)

Return T2.Subtract(T1).TotalHours
Catch ex As Exception
MessageBox.Show(ex.Message, "Time Calc Diff Failure", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Function

FUNGSI DateDifCalc
Berfungsi untuk menghitung selisih dua buah tanggal.

Private Function DateDifCalc(ByVal TheDate1 As String, ByVal TheDate2 As String) As Integer
Try
Dim myDate1 As Date
Dim myDate2 As Date

myDate1 = TheDate1
myDate2 = TheDate2
Return myDate2.Subtract(myDate1).TotalDays
Catch ex As Exception
MessageBox.Show(ex.Message, "Date Calc Diff Failure", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Function

FUNGSI GetTheDayName
Berfungsi untuk mendapatkan nama hari dari suatu tanggal yang di entry-kan

Private Function GetTheDayName(ByVal TheDate As String) As String
Try
Dim x As Date
Dim y As Date
y = TheDate
x = New DateTime(y.Year, y.Month, y.Day)
Return x.DayOfWeek.ToString()
Catch ex As Exception
MessageBox.Show(ex.Message, "Get Day Name Failure", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Function

OK, Selesai deh, Thank's Semoga bermanfaat
Referensi : googling and MSDN