請教vb倒計時程式

時間 2022-05-29 09:25:10

1樓:好幾碗粥

private sub timer1_timer()

dim timenow as date

timenow = #4:00:00 pm# - time

me.cls

print "距離下午4點還有" & hour(timenow) & "時" & _

minute(timenow) & "分" & _

second(timenow) & "秒"

if time = #4:00:00 pm# then

msgbox "時間到"

end if

end sub

但你要注意一點:進行時間相減就得出時間差來了,不過當現在的時間超過下午4點的時候 時間差就會一秒一秒的增加,在4點以前是一秒一秒的倒計時的.

下面我寫的這個程式 你會更加明白一些.

private datnow as date, y as integer

private sub timer1_timer()

me.cls

datnow = #6/6/2012 7:30:50 pm# - now

y = 2012 - val(year(now))

print "距離 2023年6月6號下午7點30分50秒 還有 " & y & "年" & _

month(datnow) & "月" & _

day(datnow) & "天" & _

hour(datnow) & "小時" _

; minute(datnow) & "分鐘" _

; second(datnow) & "秒鐘"

end sub

都這麼精確的回答了,希望給分喲~~o(∩_∩)o...

2樓:匿名使用者

'新建一個窗體新增一個timer控制元件,到時間的時候會出現提示音每秒響一下直到關閉窗體或者時間到了16:01:00

dim dat as string

private sub form_load()

form1.autoredraw = true

form1.width = 2000

form1.height = 800

dat = "16:00:00"

timer1.interval = 1000

if datediff("n", time, dat) < 0 then

msgbox "時間已過"

endend if

end sub

private sub timer1_timer()

if datediff("n", time, dat) = 0 then

beep

elseif datediff("n", time, dat) > 0 then

clsa = datediff("s", time, dat) mod 60

print "倒計時:" & datediff("n", time, dat) - 1 & ":" & format(a, "00")

else

msgbox "時間已過", vbokonly, "提示"

endend if

end sub

另外我弄了個簡單點的可以自由設定時間的小程式,感興趣的話hi我或者留下郵箱

3樓:

private sub timer1_timer()if time = #4:00:00 pm# thenlabel1.caption = "時間已到"

timer1.interval = 0

else

label1.caption = datediff("s", time, #4:00:00 pm#) & "秒"

end if

end sub

4樓:白木道人

裡面講的很適合你說的情況。

到了16:00有提示,那需要你說出具體要什麼提示。比如**閃爍啊:

timer2.interval=2500

form1.backcolor=vbred之類的。

5樓:迎風搖擺的樹葉

date=date.now()

再定義一個date型別為16:00

兩者相減不就可以了嗎

當差值為0時提示

6樓:匿名使用者

首先窗體上加個timer控制元件

private sub timer1_timer()if time = #4:00:00 pm# thenlabel1.caption = "時間已到"

timer1.interval = 0

else

label1.caption = datediff("s", time, #4:00:00 pm#) & "秒"

end if

end sub

這樣就可以了

vb中如何設計類似60秒倒計時的程式

建立一個timer控制元件 timer1 設定timer1的interval屬性為1000建立一個顯示倒計時的lable lbltime dim i as long private sub form load i 60 endsub private sub timer1 timer i i 1 lb...

怎樣vb2019編寫倒計時應用程式實時顯示倒計

工程見附件 在窗體上新增一個標籤 label1和一個timer1控制元件。完整 如下 public class form1 private thistime as date 宣告一個日期 時間變數 private sub form1 load byval sender as system.objec...

2019高考倒計時,2020高考倒計時

北京燕園思達教育 1 2020年全國將有近十個省份進行高考改革,高考考試科目及模式將有較大的變化。2 高考改革後,高考成績由普通高校招生全國統一考試的語文 數學 外語3個科目成績和普通高中學業水平考試3個科目的等級性考試成績組成。保持普通高校招生全國統一考試的語文 數學 外語科目不變 分值不變,不分...