时间倒计时代码
admin
2023-07-04 19:35:21
0次
时间倒计时代码
这是用VB写的,需在窗体上放一个label控件,如果你要用到自己程序里,里面还需加一些大小判断,请自己完善:
Private Sub Timer1_Timer()
Dim aa As Date
Dim bb As Date
aa = Now '一般用当前时间就可以了
bb = CDate("2006-11-30 11:38:33") '将来的时间
Label1.Caption = Year(bb) - Year(aa) & "年" & Month(bb) - Month(aa) & "月" & Day(bb) - Day(aa) & "天" & Hour(bb) - Hour(aa) & "小时" & Minute(bb) - Minute(aa) & "分钟" & Second(bb) - Second(aa) & "秒钟"
End Sub
网页特效|Linkweb_cn/Js|---倒计时
height="&{countdownheight};" width="&{countdownwidth};">id=countdownnssub height="&{countdownheight};"
width="&{countdownwidth};" top="0" left="0">
不好意思,看了您的问题,没能帮到你!
就是啊 你说的也太不明白了
是要显示在哪啊
网站啊?
还是给你做个小程序啊
相关内容