3

我正在使用以下代码来计算时差。我想在几秒钟内显示它,而不是 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)

谢谢

4

2 回答 2

10

使用result.TotalSeconds(如果要显示整数,则将其四舍五入)。

你也可能想简单地写:

Dim result as TimeSpan = Now() - myTime
于 2012-12-21T11:10:50.623 回答
4

你也可以使用

Dim Result = DateDiff(DateInterval.Second,Time1,Time2)
于 2012-12-21T12:27:21.140 回答