使用VB.NET的五個(gè)技巧之在組件中顯示時(shí)間

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

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

如果使用Visual Basic NET編寫(xiě) 首先嘗試的代碼可能是這樣的

Dim StartTime As DateTime = Now {code to check for timing goes here} Dim EndTime As DateTime = Now Console WriteLine((StartTime EndTime) ToString)

但是這段代碼的最后一行有語(yǔ)法錯(cuò)誤 錯(cuò)誤消息是 日期類型沒(méi)有定義 － 操作符 這意味著我們不能執(zhí)行減法 日期數(shù)據(jù)類型不支持減法操作 那么我們?cè)趺吹玫絻纱螘r(shí)間的差別呢？

答案就是使用TimeSpan類 它是用于保持時(shí)間段的 上面的代碼看起來(lái)與 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)

計(jì)算使用的是類Date的Subtract方法 最后一行將輸出時(shí)間的跨度 格式化成小時(shí) 分鐘和秒（包括秒的小數(shù)位） 典型的輸出是這樣的

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

結(jié)論

lishixinzhi/Article/program/net/201311/11820

怎么在VB.net中實(shí)時(shí)顯示時(shí)間

定時(shí)器中處理

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Timer1.Interval?=?10?'10毫秒刷新一次

Timer1.Start()?'開(kāi)啟定時(shí)器

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實(shí)現(xiàn)點(diǎn)擊按鈕顯示時(shí)間

設(shè)計(jì)界面雙擊那個(gè)按鈕(自動(dòng)跳到代碼里)

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

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

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顯示時(shí)間

Label1.Text?=?"12時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?hh:mm:ss")

Label2.Text?=?"24時(shí)演示:"?+?Now.ToString("yyyy-MM-dd?HH:mm:ss")

Label3.Text?=?"UTC時(shí)演示:"?+?System.DateTime.UtcNow.ToString("yyyy-MM-dd?HH:mm:ss")

Label4.Text?=?"時(shí)間為不補(bǔ)0:"?+?Now.ToString("yyyy-MM-dd?H:m:s")

Label5.Text?=?"時(shí)間戳:"?+?CLng(System.DateTime.UtcNow.Subtract(New?Date(1970,?1,?1,?0,?0,?0)).TotalMilliseconds).ToString

新聞名稱：vb.net時(shí)間指示的簡(jiǎn)單介紹
文章出自：http://m.rwnh.cn/article26/hpjicg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊(cè)、電子商務(wù)、靜態(tài)網(wǎng)站、外貿(mào)建站、軟件開(kāi)發(fā)、品牌網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)