Question

求更正一个vb倒计时小程序

这是个2014年元旦倒计时，本人公选作业。。。已经想了好久了，但是还是找不到问题在哪里。。。出来的倒计时还是会有-1出现。。。求大神解答

Answer 1

你这里四个If语句中:
逻辑运算 And 怎么都可以用 字符串运算的符号 & ???????????????????????????????
If DateDiff("h", Now, #1/1/2014#) Mod 24 = 0 And DateDiff("n", Now, #1/1/2014#) Mod 60 = 0 Then
你把我们口语中的 And 习惯用 & 也应用到这个高级语言里来了啊????????????

你说说什么时候会出现 -1 ?

追问

就是&的问题了。。改成and就行了。。本来百度到的答案只有下面一截。。所以在mod=0的时候出来的值都会是-1.。。。总之 问题解决啦~~~

Answer 2

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
DT1 = Now
DT2 = "2014年1月1日 00:00:00"
s = DateDiff("s", DT1, DT2)
ss = s Mod 60 '秒
s = s \ 60
mm = s Mod 60 '分
s = s \ 60
hh = s Mod 24 '小时
dd = s \ 24
Label1.Caption = "当前时间：" & Now
Label2.Caption = "距离" & DT2 & "还有" & dd & "天" & hh & "小时" & mm & "分" & ss & "秒"
End Sub
请参考。

追问

这个明摆着不对啊。。。datediff函数的话会算多1.。。所以要减一的。。。

Answer 3

Private Sub Timer1_Timer()
    Dim d As Integer
    Dim h As Integer
    Dim m As Integer
    Dim s As Integer
    Dim diff As Date
    diff = #1/1/2014# - Now
    d = DateDiff("d", 0, diff)
    h = Hour(diff)
    m = Minute(diff)
    s = Second(diff)
    Label1.Caption = d & "天" & h & "时" & m & "分" & s & "秒"
End Sub