Thursday, 12 July 2012

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
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

1 comment:

  1. terimakasih ata berbagi ilmunya, sangat berharga

    ReplyDelete

 

Network

Pesan

Semoga situs ini bermanfaat