Mega Code Archive
Create DateTime structure to a specified number of ticks
Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Class Sample
Public Shared Sub Main()
Dim dt1 As New DateTime(DateTime.MaxValue.Ticks)
Dim dt2 As New DateTime(DateTime.MinValue.Ticks)
Dim ticks As Long = New DateTime(2010, 7, 28, 22, 35, 5, New CultureInfo("en-US", False).Calendar).Ticks
Dim dt3 As New DateTime(ticks)
Console.WriteLine(dt1)
Console.WriteLine(dt2)
Console.WriteLine(dt3)
Console.WriteLine(ticks)
End Sub
End Class