Mega Code Archive
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