用日期函數(shù)day()可獲得當(dāng)前日期,time()可獲得當(dāng)前系統(tǒng)時(shí)間.
成都創(chuàng)新互聯(lián)公司擁有十余年成都網(wǎng)站建設(shè)工作經(jīng)驗(yàn),為各大企業(yè)提供做網(wǎng)站、成都做網(wǎng)站服務(wù),對(duì)于網(wǎng)頁設(shè)計(jì)、PC網(wǎng)站建設(shè)(電腦版網(wǎng)站建設(shè))、重慶App定制開發(fā)、wap網(wǎng)站建設(shè)(手機(jī)版網(wǎng)站建設(shè))、程序開發(fā)、網(wǎng)站優(yōu)化(SEO優(yōu)化)、微網(wǎng)站、申請(qǐng)域名等,憑借多年來在互聯(lián)網(wǎng)的打拼,我們?cè)诨ヂ?lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)積累了很多網(wǎng)站制作、網(wǎng)站設(shè)計(jì)、網(wǎng)絡(luò)營銷經(jīng)驗(yàn),集策劃、開發(fā)、設(shè)計(jì)、營銷、管理等網(wǎng)站化運(yùn)作于一體,具備承接各種規(guī)模類型的網(wǎng)站建設(shè)項(xiàng)目的能力。
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當(dāng)前日期
now 這個(gè)函數(shù)可以獲得當(dāng)前系統(tǒng)時(shí)間(包括年月日,小時(shí)分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息
vb.net 中沒有了 time() 函數(shù)。
可以通過 Now().TimeOfDay 截取當(dāng)前的系統(tǒng)時(shí)間。
Now()函數(shù)取當(dāng)前的系統(tǒng)日期時(shí)間,TimeOfDay 方法取日期時(shí)間中的時(shí)間部分。如下:
Dim t As TimeSpan
Dim s As Integer
t = Now().TimeOfDay
s = t.Hours * 3600 + t.Minutes * 60 + t.Seconds
變量s 就是 從午夜到現(xiàn)在經(jīng)過的秒數(shù)。
用TIMER控件調(diào)用NOW函數(shù),可取得系統(tǒng)的日期和時(shí)間:
Private Sub Timer1_Timer()
Text1 = Now
End Sub
Sub?gettime()
nowtime?=?Format(DateTime.Now,?"yyyy/MM/dd?hh:mm:ss")
MsgBox?nowtime
End?Sub
其中DateTime.Now為當(dāng)前系統(tǒng)的時(shí)間
Format是設(shè)置時(shí)間格式
效果如下