以秒为单位计算时间差

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)