以秒计算时间差

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)