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)

以秒计算时间差

2 个答案: