使用VB.NET的五個技巧之在組件中顯示時間

開發(fā)過程過程中我們通常對特定代碼片運行所花的時間很感興趣 當然有一些標準程序和代碼工具可以查看到它 但是有經(jīng)驗的Visual Basic 開發(fā)者有更快的辦法 僅僅捕捉開始時間（使用Now關鍵字）和終止時間（再次使用Now關鍵字） 兩種相減 就能知道結果了

成都網(wǎng)站建設、網(wǎng)站建設的開發(fā)，更需要了解用戶，從用戶角度來建設網(wǎng)站，獲得較好的用戶體驗。創(chuàng)新互聯(lián)公司多年互聯(lián)網(wǎng)經(jīng)驗，見的多，溝通容易、能幫助客戶提出的運營建議。作為成都一家網(wǎng)絡公司，打造的就是網(wǎng)站建設產(chǎn)品直銷的概念。選擇創(chuàng)新互聯(lián)公司，不只是建站，我們把建站作為產(chǎn)品，不斷的更新、完善，讓每位來訪用戶感受到浩方產(chǎn)品的價值服務。

如果使用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)

但是這段代碼的最后一行有語法錯誤 錯誤消息是 日期類型沒有定義 － 操作符 這意味著我們不能執(zhí)行減法 日期數(shù)據(jù)類型不支持減法操作 那么我們怎么得到兩次時間的差別呢？

答案就是使用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方法 最后一行將輸出時間的跨度 格式化成小時 分鐘和秒（包括秒的小數(shù)位） 典型的輸出是這樣的

該時間跨度是 秒半 盡管顯示了 位小數(shù) 但是只能相信兩位 但是已經(jīng)足夠了

結論

lishixinzhi/Article/program/net/201311/11820

怎么在VB.net中實時顯示時間

定時器中處理

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

怎么用vb.net實現(xiàn)點擊按鈕顯示時間

設計界面雙擊那個按鈕(自動跳到代碼里)

然后輸入 要顯示時間的那個Label.Text = DateTime.Now.ToString()

用VB.NET怎么實現(xiàn)圖中的時間顯示

Dim w As String

If Now.DayOfWeek = DayOfWeek.Sunday Then

w = "天"

ElseIf Now.DayOfWeek = DayOfWeek.Monday Then

w = "一"

ElseIf Now.DayOfWeek = DayOfWeek.Tuesday Then

w = "二"

ElseIf Now.DayOfWeek = DayOfWeek.Wednesday Then

w = "三"

ElseIf Now.DayOfWeek = DayOfWeek.Thursday Then

w = "四"

ElseIf Now.DayOfWeek = DayOfWeek.Friday Then

w = "五"

Else

w = "六"

End If

Label1.Text = (Format(Now.Year "年" Now.Month "月" Now.Day "日" " " "星期" w " " Now.Hour ":" Now.Minute ":" Now.Second))

End Sub

VB.NET中用label顯示時間

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