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

1 komentar:

  1. terimakasih ata berbagi ilmunya, sangat berharga

    BalasHapus