利用Timer控件做吧,用timer函數(shù)取時(shí)間,Hour() minute second這幾個(gè)函數(shù)取時(shí)分秒,進(jìn)行加減就能完成。
創(chuàng)新互聯(lián)是專業(yè)的云浮網(wǎng)站建設(shè)公司,云浮接單;提供成都做網(wǎng)站、網(wǎng)站建設(shè)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè),網(wǎng)頁(yè)設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行云浮網(wǎng)站開(kāi)發(fā)網(wǎng)頁(yè)制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛(ài)的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來(lái)合作!
設(shè)計(jì)界面雙擊那個(gè)按鈕(自動(dòng)跳到代碼里)
然后輸入 要顯示時(shí)間的那個(gè)Label.Text = DateTime.Now.ToString()
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
定時(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
在label1上顯示時(shí)間,
窗體控件:一個(gè)label,一個(gè)計(jì)時(shí)器
代碼如下:
Private
Sub
Form_Load()
Timer1.Interval
=
1000
End
Sub
Private
Sub
Timer1_Timer()
Label1.Caption
=
Time
End
Sub