KONVERSI WAKTU

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

    Private Sub btnmulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmulai.Click

        Dim hour, minute, second As Long

        Dim a, b As Long

        a = TextBox1.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

End Class