Konversi Detik Ke Jam Menit Detik Pada Visual Basic 6.0



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


Suka Dengan Artikel Ini ?

 
 
Copyright © 2013. BLOGGER Mr.17 - All Rights Reserved