定時器中處理
我們一直強調成都網站制作、成都做網站對于企業的重要性,如果您也覺得重要,那么就需要我們慎重對待,選擇一個安全靠譜的網站建設公司,企業網站我們建議是要么不做,要么就做好,讓網站能真正成為企業發展過程中的有力推手。專業網絡公司不一定是大公司,創新互聯作為專業的網絡公司選擇我們就是放心。
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Timer1.Interval?=?10?'10毫秒刷新一次
Timer1.Start()?'開啟定時器
End?Sub
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
Label1.Text?=?Now
End?Sub
開發過程過程中我們通常對特定代碼片運行所花的時間很感興趣 當然有一些標準程序和代碼工具可以查看到它 但是有經驗的Visual Basic 開發者有更快的辦法 僅僅捕捉開始時間(使用Now關鍵字)和終止時間(再次使用Now關鍵字) 兩種相減 就能知道結果了
如果使用Visual Basic NET編寫 首先嘗試的代碼可能是這樣的
Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Console WriteLine((StartTime EndTime) ToString)
但是這段代碼的最后一行有語法錯誤 錯誤消息是 日期類型沒有定義 - 操作符 這意味著我們不能執行減法 日期數據類型不支持減法操作 那么我們怎么得到兩次時間的差別呢?
答案就是使用TimeSpan類 它是用于保持時間段的 上面的代碼看起來與 NET框架組件中的相似
Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Dim RunLength As System TimeSpan RunLength = EndTime Subtract(StartTime) Console WriteLine(RunLength ToString)
計算使用的是類Date的Subtract方法 最后一行將輸出時間的跨度 格式化成小時 分鐘和秒(包括秒的小數位) 典型的輸出是這樣的
該時間跨度是 秒半 盡管顯示了 位小數 但是只能相信兩位 但是已經足夠了
結論
lishixinzhi/Article/program/net/201311/11820
Label1.Text?=?"12時演示:"?+?Now.ToString("yyyy-MM-dd?hh:mm:ss")
Label2.Text?=?"24時演示:"?+?Now.ToString("yyyy-MM-dd?HH:mm:ss")
Label3.Text?=?"UTC時演示:"?+?System.DateTime.UtcNow.ToString("yyyy-MM-dd?HH:mm:ss")
Label4.Text?=?"時間為不補0:"?+?Now.ToString("yyyy-MM-dd?H:m:s")
Label5.Text?=?"時間戳:"?+?CLng(System.DateTime.UtcNow.Subtract(New?Date(1970,?1,?1,?0,?0,?0)).TotalMilliseconds).ToString
設計界面雙擊那個按鈕(自動跳到代碼里)
然后輸入 要顯示時間的那個Label.Text = DateTime.Now.ToString()