秒表的VB.net演算返回负分钟

Question

秒表工作约15分钟后， 秒数显示为负数 。

Dim timeTook As Stopwatch = Stopwatch.StartNew

'Some time-consuming tasks

timeTook.Stop()

Dim mins As Long = CLng(timeTook.Elapsed.TotalMinutes.ToString) \ 1
Dim secs As Long = CLng(timeTook.Elapsed.TotalSeconds.ToString) \ 1 - 60 * mins
Label3.Text = "Time took: " & mins & " Minutes and " & secs & " Seconds"

这可能与计时器有关，也可能是逻辑错误，但对我来说似乎很合逻辑。 我不知道什么是行不通的，请帮忙。

Answer 1

如果您这样做的话，它将更具可读性和效率：

Dim timeTook As Stopwatch = Stopwatch.StartNew
'Some time-consuming tasks
timeTook.Stop()
Label3.Text = "Time took: " & Math.Floor(timeTook.Elapsed.TotalMinutes).ToString() & " Minutes and " & timeTook.Elapsed.Seconds.ToString() & " Seconds"

或者更好：

Label3.Text = "Time took: " & timeTook.Elapsed.ToString()

Elapsed属性已经拥有您需要的所有信息，因此它很傻，而且更容易出错，您可以自己重新计算。

Answer 2

这里的问题是，CLng函数（）函数舍入浮点值。 因此，如果经过的时间为0.6分钟，那么您将得到mins =1。您的secs值现在将为负。

您需要截断该值，以便始终将其四舍五入。 让我们也摆脱字符串转换，这没有任何意义：

Dim mins = Math.Truncate(timeTook.Elapsed.TotalMinutes)
Dim secs = timeTook.Elapsed.TotalSeconds - 60 * mins
Label3.Text = String.Format("Time took: {0:N0} minutes and {1:N0} seconds", _
                            mins, secs)

我将把复数化错误留给您解决：)

Answer 3

您确定分钟数是负数而不是秒数吗？ 您的密码

Dim secs As Long = CLng(timeTook.Elapsed.TotalSeconds.ToString) \ 1 - 60 * mins

总是返回负数，因为any number / negative number is negative 。

更好的方法

Dim secs As Long = timeTook.Elapsed.TotalSeconds mod 60

Answer 4

为什么不使用.ToString格式？

    Label3.text = timeTook.Elapsed.ToString("hh\:mm\:ss")