Konversi Detik Ke Jam

Source code berikut untuk konvesi detik ke jam dengan Visual Basic 6. Contok di bawah ini untuk data 3600 detik.

Buat suatu project dengan :
1 Form
1 CommandButton dengan name"cmdDayOfMonth"

Copy source code berikut pada Form :

Private Sub KonversiDetikJam(ByVal intDetik As Long)
    Dim hour, minute, second As Long
   Dim lngDetik, b, c, d As Long
   lngDetik = intDetik
   hour = Int(lngDetik / 3600)
   b = hour * 3600
   minute = Int((lngDetik - b) / 60)
   second = lngDetik - b - (minute * 60)
   MsgBox "Hasil konversi = " & hour & " jam " & minute & " menit " & second & " detik ", vbOKOnly
End Sub