download gratis video tutorial vb 6 dan vb.net plus contoh aplikasi

cara-mencari-selisih-waktu-jam

 

 

 

selisih-jam

 

Public Class waktu

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = TimeOfDay
End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = False
Dim endtime As Date = TimeValue(TextBox1.Text)
Dim result As TimeSpan = endtime - TimeValue(TextBox2.Text)
TextBox3.Text = (String.Format("{0}:{1}:{2}", result.Hours, result.Minutes, result.Seconds))
End Sub

 

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer2.Enabled = False
TextBox2.Text = TimeOfDay
End Sub

End Class