Konversi Detik Ke Jam Menit Detik Pada Visual Basic

Source code berikut untuk mengonversi detik ke jam menit detik. Misalkan jika input 3660 detik, maka output yang dihasilkan adalah 1 Jam 1 Menit 0 Detik.

Buat 1 project dengan :
1 Form
1 TextBox
1 CommandButton

Copy source code berikut pada Form : 

Private Sub Command1_Click()
    Dim hour, minute, second As Long
    Dim a, b, c, d As Long
    a = Text1.Text
    hour = Int(a / 3600)
    b = hour * 3600
    minute = Int((a - b) / 60)
    second = a - b - (minute * 60)
    MsgBox "Hasil konversi = " & hour & " jam " & minute & " menit " & second & " detik ", vbOKOnly
End Sub

—
Artikel Berkaitan :

• Script VB Untuk Konversi Bilangan Desimal Ke Biner dan Biner Ke Desimal
• Menghitung Selisih Dari 2 Tanggal Berbeda
• Menghitung Selisih Dari 2 Tanggal Berbeda (2)
• Membuat Fungsi Random Huruf Dan Angka Pada Visual Basic
• Menghitung Jumlah Hari Dalam Satu Bulan Pada Visual Basic