Mega Code Archive
DateTimeOffset represents time relative to Coordinated Universal Time (UTC)
Module DateArithmetic
Public Sub Main()
Dim date1, date2 As Date
Dim dateOffset1, dateOffset2 As DateTimeOffset
Dim difference As TimeSpan
date1 = Date.Now
date2 = Date.UtcNow
difference = date1 - date2
Console.WriteLine("{0} - {1} = {2}", date1, date2, difference)
dateOffset1 = date.Now
dateOffset2 = date.UtcNow
difference = dateOffset1 - dateOffset2
Console.WriteLine("{0} - {1} = {2}", _
dateOffset1, dateOffset2, difference)
End Sub
End Module