TimeOfDayプロパティでは、DateTimeの表す日時のうち、時刻の部分(午前0時ちょうどからの経過時間)のみをTimeSpanで取得することが出来ます。
DateTime/DateTimeOffset.TimeOfDayプロパティで時刻のみを取得する
Imports System
Class Sample
Shared Sub Main()
Dim dt As DateTime = DateTime.Now ' 現在の日時を取得
Dim timeOfDt As TimeSpan = dt.TimeOfDay ' 時刻部分のみをTimeSpanとして取得
Console.WriteLine(timeOfDt)
Dim dto As DateTimeOffset = DateTimeOffset.Now ' 現在の日時を取得
Dim timeOfDto As TimeSpan = dto.TimeOfDay ' 時刻部分のみをTimeSpanとして取得
Console.WriteLine(timeOfDto)
End Sub
End Class
実行結果例
15:00:30.1230000 15:00:30.1230000