时间持续时间

Question

这可能是一个更容易的问题,然后我正在制作它,但试图找出时间格式绝对是杀了我.

当我按下按钮时,我使用以下方式收集开始时间:

    StartTime = DateTime.Now.ToString("hh.mm.ss.tt")

然后,当计算完成后,我有:

    EndTime = DateTime.Now.ToString("hh.mm.ss.tt")

我想做的是:

    TotalTime = EndTime - StartTime  

但要使用格式打印时间; "？#Hours,## Minutes,&## Seconds"

听起来太简单了....

---

我的编辑*

        timenow = DateTime.Now
        start = DateTime.Now

        Dim totaltime As TimeSpan = (timenow - start)
        xlWorkSheet201.Cells(3, 9) = "Total Test Time: " & Format(totaltime.Hours, "#0") & " Hours, " & Format(totaltime.Minutes, "#0") & "Minutes, & " & Format(totaltime.Seconds, "00") & "Seconds."

Answer 1

我可能不会ToString()在StartTime和EndTime变量上使用该函数,因为它将它们变成字符串.

试试这个:

Dim StartTime as DateTime = DateTime.Now

'' Do Stuff

Dim EndTime As DateTime = DateTime.Now

Dim TotalTime As TimeSpan = EndTime - StartTime

Me.Text = TotalTime.ToString("hh':'mm':'ss")

当然,您可以跳过TotalTime变量并只计算它:

Me.Text = (EndTime - StartTime).ToString("hh':'mm':'ss")