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 ?

Anda baru saja membaca artikel yang berkategori Pendidikan / Visual Basic 6.0 dengan judul "Konversi Detik Ke Jam Menit Detik Pada Visual Basic 6.0". Anda bisa bookmark halaman ini dengan URL https://blog17lamers.blogspot.com/2013/04/konversi-detik-ke-jam-menit-detik-pada_9.html.