cara-mencari-selisih-waktu-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