Mega Code Archive
Display individual properties of the resulting TimeSpan object
<![CDATA[
Module Example
Public Sub Main()
Dim date1 As Date = #1/1/2010 8:00:15AM#
Dim date2 As Date = #8/18/2010 1:30:30PM#
Dim interval As TimeSpan = date2 - date1
Console.WriteLine("{0} - {1} = {2}", date2, date1, interval.ToString())
Console.WriteLine("{0,-35} {1,20}", "Value of Days Component:", interval.Days)
Console.WriteLine("{0,-35} {1,20}", "Total Number of Days:", interval.TotalDays)
Console.WriteLine("{0,-35} {1,20}", "Value of Hours Component:", interval.Hours)
Console.WriteLine("{0,-35} {1,20}", "Total Number of Hours:", interval.TotalHours)
Console.WriteLine("{0,-35} {1,20}", "Value of Minutes Component:", interval.Minutes)
Console.WriteLine("{0,-35} {1,20}", "Total Number of Minutes:", interval.TotalMinutes)
Console.WriteLine("{0,-35} {1,20:N0}", "Value of Seconds Component:", interval.Seconds)
Console.WriteLine("{0,-35} {1,20:N0}", "Total Number of Seconds:", interval.TotalSeconds)
Console.WriteLine("{0,-35} {1,20:N0}", "Value of Milliseconds Component:", interval.Milliseconds)
Console.WriteLine("{0,-35} {1,20:N0}", "Total Number of Milliseconds:", interval.TotalMilliseconds)
Console.WriteLine("{0,-35} {1,20:N0}", "Ticks:", interval.Ticks)
End Sub
End Module
]]>