倒数计时器未完全工作

Question

我的网站上有一个倒数计时器，它倒计时到每周周日下午 3 点，也就是我们的新促销活动开始的时间。计时器似乎只会在秒数达到 30 时减少分钟数，我认为小时数也是如此。这是为我提供的代码，计时器可以在我的网页上看到。http://www.onlinecarbooty.com/go-booting-front.aspx

VB...

    Dim seconds As Integer = DateDiff(DateInterval.Second, Date.Now, BootSale.nextDOW(DayOfWeek.Sunday))
    Dim days, hours, minutes As Integer
    days = seconds / 86400
    hours = (seconds Mod 86400) / 3600
    minutes = (seconds Mod 3600) / 60
    lblTimer.Text = days & " Day(s) " & hours & " Hour(s) " & minutes & " Minute(s) " ' & seconds Mod 60 & " Seconds"

    If Date.Now.DayOfWeek.ToString = "Sunday" And Date.Now.Hour >= 15 Then
        lblTimer.Text = "NEW SALE JUST GONE LIVE!"
    End If

Protected Sub timer1_tick(sender As Object, e As EventArgs)
    Dim seconds As Integer = DateDiff(DateInterval.Second, Date.Now, BootSale.nextDOW(DayOfWeek.Sunday))
    Dim days, hours, minutes As Integer
    days = seconds / 86400
    hours = (seconds Mod 86400) / 3600
    minutes = (seconds Mod 3600) / 60
    lblTimer.Text = days & " Day(s) " & hours & " Hour(s) " & minutes & " Minute(s) " & seconds Mod 60 & " Seconds"
End Sub

前端...

<asp:Timer ID="timer1" runat="server" Interval="1000" OnTick="timer1_tick"></asp:Timer>

<asp:UpdatePanel id="updPnl" runat="server" UpdateMode="Conditional">
    <ContentTemplate>
        <h2 class="boldStyle">NEW Sale starts in <asp:Label ID="lblTimer" runat="server"></h2></asp:Label></h2>
    </ContentTemplate>
    <Triggers>
        <asp:AsyncPostBackTrigger ControlID="timer1" EventName="tick" />
    </Triggers>
</asp:UpdatePanel>

Answer 1

我不想在您提供的代码中检查问题的原因，而是直接提出另一种解决方案。

我建议你使用我的 TimeMeasurer 类来表示倒计时或计时器，所有这些都以简单的方式使用事件处理程序来通知时间变化。

使用此类的倒计时示例：

Private WithEvents countdown As New TimeMeasurer()

' Label used to display the remaining time.
Private lblCountdown As Label = Me.Label1

Private Shadows Sub Shown() Handles MyBase.Shown

    ' The time interval for the TimeUpdated event to raise.
    Me.countdown.UpdateInterval = 100 ' ms

    ' Run a countdown of 1 minute.
    Me.countdown.Start(TimeSpan.FromMinutes(1.0R))

End Sub

Private Sub Countdown_TimeUpdated(sender As Object, e As TimeMeasurerUpdatedEventArgs) _
Handles countdown.TimeUpdated

    ' Measure H:M:S:MS
    Me.lblCountdown.Text = 
       String.Format("{0:00}:{1:00}:{2:00}:{3:000}",
                     e.Remaining.Hours, e.Remaining.Minutes, 
                     e.Remaining.Seconds, e.Remaining.Milliseconds)

    If (e.Elapsed.Subtract(e.Remaining) = e.Goal) Then
        Me.lblCountdown.Text = "Countdown Done!"
    End If

End Sub

另一个例子可以在源代码文档中找到。

随意使用它或根据需要调整它。您可以自己检查源代码来避免您提到的问题。

希望对你有帮助！