Format TimeSpan to get hours
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