我怎样才能得到hh：mm：ss在vb.net中显示在几秒钟

Question

我试图让vb.net显示格式hh：mm：ss的工作时间。我想让它在几秒钟内显示，我可以获得帮助吗？ 因此，例如，如果是上午10:00:00，那将是10 * 60 * 60.但是，时间会自动继续，如果说时间是上午10点19分23秒，那么我该怎么办？

我的代码：

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    Label2.Text = Format(Now, "HH:mm:ss") 
End Sub 

Private Function GetSeconds(ByVal timestamp As DateTime) As Integer 

    Dim timespan As TimeSpan = Now - timestamp 
    Return (timespan.TotalSeconds) 

End Function 

Answer 1

这里有一些方法可以得到一天的秒数：

Dim a As Double = Now.TimeOfDay.TotalSeconds   ' 39715.561210299995 
Dim b As Long = TimeOfDay.Ticks \ 10000000   ' 39715 
Dim c As Double = TimeOfDay.ToOADate * 24 * 60 * 60 ' 39715.000000000007 
Dim d As Double = (Now.ToOADate Mod 1) * 24 * 60 * 60 ' 39715.000000000007