Menghitung Selisih Waktu

Unknown | 09:31 | vb6
Di Visaul Basic, kita dapat membuat apapun termasuk menghitung selisih waktu/jam.
berikut gambar hasil output dan source codenya :

Private Function totalWaktu (jamAwal As Variant, jamAkhir As Variant) As String


Dim detikAkhir, detikAwal, jumlahDetik As Long

detikAwal = (Hour(jamAwal) * 3600) + (Minute(jamAwal) * 60) + (Second(jamAwal))

detikAkhir = (Hour(jamAkhir) * 3600) + (Minute(jamAkhir) * 60) + (Second(jamAkhir))

If jamAkhir < jamAwal Then
'----di hitung satu hari
jumlahDetik = 86400
Else
jumlahDetik = 0
End If

jumlahDetik = jumlahDetik + (detikAkhir - detikAwal)

totalWaktu = Format(Str(Int((Int((jumlahDetik / 3600)) Mod 24))), "00") + _
":" + Format(Str(Int((Int((jumlahDetik / 60)) Mod 60))), "00") + _
":" + Format(Str(Int((jumlahDetik Mod 60))), "00")

End Function

Private Sub Command1_Click()
Text3.Text = totalWaktu(Text1, Text2)
End Sub

sedikit catatan kecil :

1 Detik   =   Seper 60 Menit (1/60 Detik)
1 Menit  =   60 Detik
1 Jam    =   60 Menit
1 Jam    =   3.600 Detik
1 Hari    =   1.440 Menit
1 Hari    =   86.400 Detik