date
and datetime
anyway here is the code. Work with it a little and let me know how it goes. Private Sub tmrSeconds_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrSeconds.Tick
Dim dt As DateTime = DateTime.Now
Dim d As Date = Now
If lstTime.Items.Count < 25 Then
Dim lngticks As Long = dt.Ticks
' lstDate.Items.Add(dt.TimeOfDay.FromTicks(lngticks)) ' Poor formating
'lstDate.Items.Add(dt.FromFileTimeUtc(lngticks)) ' Why the year is 3603 I dont know.
'lstDate.Items.Add(d.FromFileTimeUtc(lngticks)) ' Why the year is 3603 here too, I dont know.
lstDate.Items.Add(d.FromFileTimeUtc(lngticks).AddYears(-1600)) ' this is definately a hack :(
lstTime.Items.Add(lngticks.ToString)
If lstTime.Items.Count > 1 Then
lstDiff.Items.Add(lstTime.Items.Item(lstTime.Items.Count - 2) - lstTime.Items.Item(lstTime.Items.Count - 1))
Else
lstDiff.Items.Add("Start")
End If
End If
End Sub
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams