Date Time VB.Net

Module ToString
   Public Sub Main()
      Dim span As TimeSpan
      ' Initialize a time span to zero.
      span = TimeSpan.Zero
      Console.WriteLine(span)
      ' Initialize a time span to 14 days.
      span = New TimeSpan(-14, 0, 0, 0, 0)
      Console.WriteLine(span)
   End Sub
End Module