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個科目的等級性考試成績組成。保持普通高校招生全國統一考試的語文 數學 外語科目不變 分值不變,不分...