cara men konversi dari detik ke jam,menit,dan,detik vb 6

source code berikut adalah bagaimana cara men konversi dari detik ke jam,menit dan detik
berikut codingan nya

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

About these ads

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s