Home > Visual Basic 6 > Konversi Detik Ke Jam Menit Detik Pada Visual Basic

Konversi Detik Ke Jam Menit Detik Pada Visual Basic

Source code berikut untuk mengonversi detik ke jam menit detik. Misalkan jika input 3660 detik, maka output yang dihasilkan adalah 1 Jam 1 Menit 0 Detik.

Buat 1 project dengan :
1 Form
1 TextBox
1 CommandButton

Copy source code berikut pada Form : 

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


Artikel Berkaitan :

About these ads
  1. samsul
    December 12, 2010 at 11:55 pm | #1

    makasih atas ilmunya.

  2. azwar
    March 14, 2012 at 3:19 pm | #2

    Pak / Mas Firman sy ingin kerja sama dengan antum, untuk lebih jelasnya saya ingin antum mengirimkan email ke alamat sy (azwar.mahrami@gmail.com), sy sgt berharap bertemu dengan antum, tentu klo tidak keberatan, semoga kita bisa menjalin tali silaturrahmi dan kerjasama.

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

Join 136 other followers

%d bloggers like this: