以秒爲單位計算時間差

Question

我正在使用以下代碼來計算時間差。我想在幾秒鐘內顯示它，而不是在HH：MM：SS 請指教。

Dim myTime = DateTime.Parse("15:40:00 PM") 
    Dim vrNowTime = DateTime.Parse(TimeOfDay) 
    Dim result = vrNowTime - myTime 
    Label1.Text = vrNowTime & " " & myTime 
    MsgBox(result.ToString) 

感謝

Answer 1

使用result.TotalSeconds（和圓形它，如果你要顯示的整數）。

而且你可能想簡單地寫：

Dim result as TimeSpan = Now() - myTime 

Answer 2

您還可以使用

Dim Result = DateDiff(DateInterval.Second,Time1,Time2)