Dateプロパティとは異なり、DateTime.TimeOfDayプロパティおよびDateTimeOffset.TimeOfDayプロパティが返す値は、どちらも時刻の種類(Kindプロパティ)・オフセット値(Offsetプロパティ)の影響を受けず、時刻部分の値がそのままの値で返されます。 なお、TimeOfDayプロパティはTimeSpan型で時刻を返すため、メソッドを使って比較する場合はDateTime.CompareではなくTimeSpan.Compareを使います(TimeSpan.Compareのかわりに比較演算子を使って比較することもできます)。
TimeOfDayプロパティを使って2つのDateTimeOffsetの時刻のみを比較する
Imports System
Class Sample
Shared Sub Main()
' 各DateTimeOffsetの時刻のみを比較する
Dim a As New DateTimeOffset(2013, 4, 5, 6, 0, 0, new TimeSpan(9, 0, 0))
Dim b As New DateTimeOffset(2013, 4, 4, 21, 0, 0, TimeSpan.Zero)
Dim c As New DateTimeOffset(2013, 4, 4, 16, 0, 0, new TimeSpan(-5, 0, 0))
Console.WriteLine("a = {0}", a)
Console.WriteLine("b = {0}", b)
Console.WriteLine("c = {0}", c)
Console.WriteLine("a.TimeOfDay = {0}", a.TimeOfDay)
Console.WriteLine("b.TimeOfDay = {0}", b.TimeOfDay)
Console.WriteLine("c.TimeOfDay = {0}", c.TimeOfDay)
Console.WriteLine("a.TimeOfDay < b.TimeOfDay : {0}", a.TimeOfDay < b.TimeOfDay)
Console.WriteLine("b.TimeOfDay < c.TimeOfDay : {0}", b.TimeOfDay < c.TimeOfDay)
Console.WriteLine("c.TimeOfDay < a.TimeOfDay : {0}", c.TimeOfDay < a.TimeOfDay)
Console.WriteLine("TimeSpan.Compare(a.TimeOfDay, b.TimeOfDay) : {0}", TimeSpan.Compare(a.TimeOfDay, b.TimeOfDay))
Console.WriteLine("TimeSpan.Compare(b.TimeOfDay, c.TimeOfDay) : {0}", TimeSpan.Compare(b.TimeOfDay, c.TimeOfDay))
Console.WriteLine("TimeSpan.Compare(c.TimeOfDay, a.TimeOfDay) : {0}", TimeSpan.Compare(c.TimeOfDay, a.TimeOfDay))
End Sub
End Class
実行結果
a = 2013/04/05 6:00:00 +09:00 b = 2013/04/04 21:00:00 +00:00 c = 2013/04/04 16:00:00 -05:00 a.TimeOfDay = 06:00:00 b.TimeOfDay = 21:00:00 c.TimeOfDay = 16:00:00 a.TimeOfDay < b.TimeOfDay : True b.TimeOfDay < c.TimeOfDay : False c.TimeOfDay < a.TimeOfDay : False TimeSpan.Compare(a.TimeOfDay, b.TimeOfDay) : -1 TimeSpan.Compare(b.TimeOfDay, c.TimeOfDay) : 1 TimeSpan.Compare(c.TimeOfDay, a.TimeOfDay) : 1