十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無(wú)憂售后,網(wǎng)站問(wèn)題一站解決
不是 有 函數(shù)嘛?

成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供寧安企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站建設(shè)、成都做網(wǎng)站、H5網(wǎng)站設(shè)計(jì)、小程序制作等業(yè)務(wù)。10年已為寧安眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進(jìn)行中。
now() 就是 吧
取得 后 再 分離出你所需的,分別賦值 就行了,當(dāng)然 還是 有 函數(shù)的
Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當(dāng)前日期字符串
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '當(dāng)前日期轉(zhuǎn)換成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '獲得當(dāng)前日期是星期幾
Dim differadd As Integer = 1 - ThisWeekDay '相差的天數(shù)(星期1與當(dāng)前星期幾相差的天數(shù))
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy") '獲取當(dāng)前日期的年份
Dim MyMonth As Integer = Format(Now, "MM") '獲取當(dāng)前日期的月份
Dim MyDay As Integer = Format(Now, "dd") '獲取當(dāng)前日期是幾號(hào)
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是:" Yourday)
用日期函數(shù)day()可獲得當(dāng)前日期,time()可獲得當(dāng)前系統(tǒng)時(shí)間.
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返回的值中分別提取年,月,日的信息
窗體放一個(gè)monthcalender、一個(gè)文本框、一個(gè)按鈕:
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?m?As?Int16?=?Convert.ToInt16(TextBox1.Text)
If?m?=?1?And?m?=?12?Then
MonthCalendar1.SetDate(DateSerial(Year(DateAndTime.Now),?m,?1))
End?If
End?Sub
1、時(shí)間可以直接比較大小,定義兩個(gè)時(shí)間的變量,直接使用或者即可判斷,跟數(shù)據(jù)大小判斷是一樣的
2、時(shí)間差值,可以使用DateDiff函數(shù)進(jìn)行
3、比如取一個(gè)現(xiàn)在的時(shí)間now,使用Year、month、day、hour、min、sec函數(shù)可以取到now的年份、月、日、小時(shí)、分鐘和秒