Menghitung Jumlah Jam Mengunakan Visual Basic 6

Sobat Sekalian Siap kan Project baru di VB 6 buat 1 Form dengan isi 2 Text Box dan 1 button, setelah itu siapkan 1 module setelah semuanya siap copy paste aja deh biar cepet...
copy kan source code ini di modul
Function ElapsedTime(tStart, tStop) As String

Dim dtr, dtl, jml As Long

dtl = (Hour(tStart) * 3600) + _
(Minute(tStart) * 60) + (Second(tStart))

dtr = (Hour(tStop) * 3600) + _
(Minute(tStop) * 60) + (Second(tStop))

If tStop < tStart Then
jml = 86400
Else
jml = 0
End If

jml = jml + (dtr - dtl)

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

End Function


Copykan Source code ini di Form
Private Sub Command1_Click()
Me.Caption = ElapsedTime(MULAI, AKHIR)
End Sub