Cara Konversi Angka Ke Jam, Menit dan Detik Di VB6

Berikut ini cara melakukan konversi dari angka ke dalam Jam Menit dan Detik pada Visual Basic:

- Buat Desain Formnya seperti gambar dibawah:

- Masukan Sintak berikut pada Text1 event LostFocus:

Private Sub Text1_LostFocus()
Dim Isec As Integer
    Isec = Val(Text1.Text)
    BreakSec = Str$(Int(Isec / 60)) & " minutes " & Str$(Isec Mod 60) & " seconds "
    Text2.Text = BreakSec
End Sub

- Kemudian jalankan

Selamat anda berhasil mengkonversi dari angka menjadi format Jam Menit dan Detik.

Sekian tutorial singkat ini semoga bermanfaat.