1樓：匿名使用者
你好，解決你的問題，需要用到兩個函式：【date】和【time】前者返回日期，後者返回時間。
在vb程式設計環境下，按【f1】可獲得更詳細的幫助。
如果只是要顯示，那可以這樣：在窗體上放置三個【label】控制元件和一個時鐘【timer】控制元件。
貼上以下**：
private sub form_load()
= format(date, "yyyy-mm-dd") 顯示當前日期。
= 1000 '一秒觸發一次timer事件。
= true '開表計時。
end sub
private sub timer1_timer()
= format(time, "hh:mm") 顯示如： "05:04"。
= format(time, "hh:mm:ss ampm") 顯示如："05:04:23 pm"。
end sub
然後在 timer1的timer事件中增加相應的判斷即可。例如：
if trim( >trim( then
beep '通過喇叭發出一個聲（放到for迴圈中，可響多聲）
=false '把鬧錶停下來。
msgbox " 時 間 到 !"vbinformation, "提示"
end if
當然，要完善它，你還需要新增按鈕比如，【開始計時】或【終止】，這時你只需要在按鈕的。
click 事件中控制【 的真假就行了。相信你會做。你試試吧，祝好運。
按鍵精靈時間怎樣控制計時器，按鍵精靈裡怎麼用計時器
先說思路，每次找到 後做一下判斷，是否超過2分鐘，如果超過就跳轉rem 迴圈 findpic 818,100,850,117,attachment 2.bmp 0.9,intx,inty if intx 0 and inty 0 thendelay 100 moveto 858,127 delay ...
在現實生活中怎麼有那麼多的無奈為什麼現實生活中往往有太多的不如意，太多的事與願違，太多的無奈？
人活著 為了體驗悲歡離合，生老病死，為了實現自身的理想 追求 目標 慾望以及價值。活得很累,很辛苦 因為社會很不公平，活著很無奈 傷心難過要哭泣,找到事做,就不無聊 因為人生本來就是如此 沒有一個人的人生是一帆風順的 只要努力就精彩！遇到任何事情要樂觀對待 保持一顆平常心。只要謹記 這一秒不放棄，下...
你是怎麼理解現實生活遠比電影更精彩的
一堆腐爛的屍骨 倒塌的房屋就能還原當年 那慘烈的場景？別鬧了，我是 的倖存者，電影裡只是表象，我們內心深處的恐懼它根本無法拍出來。電影再精彩那也只是看在眼中的故事，那不是真實的。而我們所處的世界，每一天的生活百態都影響著每一個人。我就說一件我身邊的事。一個大叔包養的情人最後被發現是親生女兒，而自己的...