Date Time VB.Net

Module Example
   Public Sub Main()
      Dim interval As TimeSpan = Date.Now - Date.Now.Date
      Dim msg As String = String.Format("Elapsed Time Today: {0:d} hours.",interval)
      Console.WriteLine(msg)
   End Sub
End Module