用日期函數(shù)day()可獲得當(dāng)前日期,time()可獲得當(dāng)前系統(tǒng)時(shí)間.
創(chuàng)新互聯(lián)專(zhuān)業(yè)為企業(yè)提供東光網(wǎng)站建設(shè)、東光做網(wǎng)站、東光網(wǎng)站設(shè)計(jì)、東光網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、東光企業(yè)網(wǎng)站模板建站服務(wù),十余年東光做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
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返回的值中分別提取年,月,日的信息
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
MessageBox.Show(a)
MessageBox.Show(b)
End Sub
上面是獲取月份以及天數(shù)
'======================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
Dim c, d As String
If a 0 AndAlso a 10 Then
c = "1位數(shù)"
Else
c = "2位數(shù)"
End If
If b 0 AndAlso b 10 Then
d = "1位數(shù)"
Else
d = "2位數(shù)"
End If
MessageBox.Show(c)
MessageBox.Show(d)
End Sub
這個(gè)是獲取位數(shù)的
其實(shí)電腦中的日期格式是Date類(lèi)型,你所說(shuō)的"yyyy-M-d“還是“yyyy/M/d"都是其轉(zhuǎn)換為字符串以后顯示的方式,你可以用Format函數(shù)將Date類(lèi)型轉(zhuǎn)換為你希望顯示的任何形式,例如:
Format(DateTimePicker1.Value, "yyyy-MM-dd") '2014-08-30
Format(DateAndTime.Now, "yyyy-M-d") '2014-8-30
Format(DateTimePicker1.Value, "Long Date") '2014年8月30日