這個(gè)不能拿到吧~~你可以加一個(gè)自啟動(dòng)的模塊~~開機(jī)后就開始記錄時(shí)間
專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)玉泉街道免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了千余家企業(yè)的穩(wěn)健成長(zhǎng),幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
'添加一個(gè)label標(biāo)簽名字label1 用來(lái)顯示時(shí)間
'再添加一個(gè)timer控件 名字timer1 interval屬性=1000 用來(lái)計(jì)時(shí)
'窗體添加代碼
Dim t As Date '用來(lái)記錄時(shí)間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時(shí)間:" t.TimeOfDay.ToString
End Sub
vb中獲取系統(tǒng)當(dāng)前的時(shí)間用函數(shù) now() 就可以。另外還有相關(guān)的時(shí)間 date() time()
now()獲取系統(tǒng)當(dāng)前日期和時(shí)間,如:2015-12-12 22:23:34
time()獲取系統(tǒng)的時(shí)間,如:22:23:34不顯示當(dāng)前日期
date()獲得系統(tǒng)的日期,如:2015-12-12
Private Sub Command1_Click()
MsgBox Now()
MsgBox Time()
MsgBox Date
End Sub