時刻の差を取得する場合、TimeSpanを利用すると便利です。
実は、最近使い始めたので、少し紹介します。
＜時刻の差を表示したい場合＞
-------------------------------------------------------------------------------
Dim dNow As DateTime = System.DateTime.Now
Dim oTimeSpan As TimeSpan = System.DateTime.Now.Subtract(dNow)
Me.lblTime.Text = oTimeSpan.Duration.ToString
-------------------------------------------------------------------------------
→ "0.00:00:00.0"のように、"日.時:分:秒.ミリ秒"形式で、時間の差が求められます。
＜時間を加算したい場合＞
-------------------------------------------------------------------------------
Dim dNow As DateTime = System.DateTime.Now
'時間の差を求める
Dim oTimeSpan As TimeSpan = System.DateTime.Now.Subtract(dNow)
'時間を加算する
dNow = dNow.Add(oTimeSpan)
-------------------------------------------------------------------------------
＜前日の同時刻を取得したい場合＞
-------------------------------------------------------------------------------
Dim dNow As DateTime = System.DateTime.Now
'TimeSpanに-24時間と設定する
Dim oTimeSpan As TimeSpan = New TimeSpan(-24, 0, 0)
'時間を加算する
dNow = dNow.Add(oTimeSpan)
-------------------------------------------------------------------------------
