DateTime・DateTimeOffsetに対してTimeSpanを加減算することで、ある日時から一定時間経過した/遡った日時を求めることができます。
DateTime・DateTimeOffsetに対しては、DateTime.Add/Subtractなどのメソッドを使って加減算をすることもできます。
加算/減算演算子でDateTime/DateTimeOffsetとTimeSpanを加減算する
Imports System
Class Sample
Shared Sub Main()
' 現在日時
Dim dt As DateTime = DateTime.Now
Dim dto As DateTimeOffset = DateTimeOffset.Now
Dim ts As New TimeSpan(1, 8, 0, 0)
' 現在から1日と8時間後の時刻を求める
Console.WriteLine(dt + ts)
Console.WriteLine(dto + ts)
' 現在より1日と8時間前の時刻を求める
Console.WriteLine(dt - ts)
Console.WriteLine(dto - ts)
End Sub
End Class
実行結果例
2013/04/02 23:00:30 2013/04/02 23:00:30 +09:00 2013/03/31 7:00:30 2013/03/31 7:00:30 +09:00