Question

我想知道如何根据时间设置倒计时...例如下午6点，有一个时间像11PM，我怎么会倒计时我点击按钮没有计时器，这告诉我你剩下5个小时等。

Dim myTime As String = "7AM"
Dim date1 As DateTime = Date.Now
Dim date2 As DateTime = Convert.ToDateTime(Date.Now.Date.ToLongDateString & " " & myTime)
Dim ts As New TimeSpan
ts = date2 - date1
TextBox.Text = ts.Hours & ":" & ts.Minutes & ":" & ts.Seconds

Answer 1

如果我做对了，你想通过点击按钮获得剩余时间吗？这也意味着你必须每次点击才能更新？

Dim myTime As String = "7AM"
Dim date1 As DateTime = System.DateTime.Now.ToString("hh:mm:ss tt, dd MMMM yyyy")
Dim date2 As DateTime = Convert.ToDateTime(Date.Now.Date.ToLongDateString & " " & myTime)

Dim ts As New TimeSpan
If date2 < date1 Then
    date2 = date2.AddDays(1)
End If
ts = date2 - date1


MsgBox(ts.Hours & ":" & ts.Minutes & ":" & ts.Seconds)

这将返回16:30:00 hh:mm:ss格式的时间。

根据时间设置倒计时

1 个答案: