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
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
terimakasih ata berbagi ilmunya, sangat berharga
ReplyDelete