首先建立一個timer控件和一個label控件,之后把timer控件的interval屬性改為1000
創(chuàng)新互聯(lián)建站長期為上千客戶提供的網(wǎng)站建設(shè)服務(wù),團隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為林周企業(yè)提供專業(yè)的成都做網(wǎng)站、網(wǎng)站制作,林周網(wǎng)站改版等技術(shù)服務(wù)。擁有十多年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
之后編寫代碼:
Private Sub Timer1_Timer()
a = Time$
Label1.Caption = "當前時間為:" a
End Sub
我想應(yīng)該是,你試試看把……
Sub?gettime()
nowtime?=?Format(DateTime.Now,?"yyyy/MM/dd?hh:mm:ss")
MsgBox?nowtime
End?Sub
其中DateTime.Now為當前系統(tǒng)的時間
Format是設(shè)置時間格式
效果如下
思路沒有錯,
先插入【開始時間】insert into table(時間) values(Now)
等結(jié)束之后,再根據(jù)主鍵去查出開始時間
用結(jié)束時間將其減去
獲取系統(tǒng)時間用 now()
而后格式化字符串以精確到分鐘
string.Format("{0:yyyyMMddHHmm}",now())
可以使用VB.NET中的DataTime對象的AddMonths方法:
Dim d1 As Date = Now
MsgBox(d1) '顯示現(xiàn)在的機器日期與時間
MsgBox(d1.AddMonths(2)) '顯示現(xiàn)在的機器日期加上2個月的對應(yīng)日期與時間
MsgBox(d1.AddMonths(-1)) '顯示現(xiàn)在的機器日期減掉1個月的對應(yīng)日期與時間
DataTime對象的方法很多,你可以通過在線查閱,例如:
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等!
注意:從字面意思可以理解是加,而括號里是填寫對應(yīng)的數(shù)值,當數(shù)值為負數(shù),起到減的作用了。
用日期函數(shù)day()可獲得當前日期,time()可獲得當前系統(tǒng)時間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當前日期
now 這個函數(shù)可以獲得當前系統(tǒng)時間(包括年月日,小時分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息