兩種方式自己選用
創(chuàng)新互聯(lián)是一家專業(yè)提供崇義企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站制作、成都網(wǎng)站建設(shè)、H5建站、小程序制作等業(yè)務(wù)。10年已為崇義眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站制作公司優(yōu)惠進(jìn)行中。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
s = DateTime.Today.Year()
s = s DateTime.Today.Month()
s = s DateTime.Today.Day()
s = s DateTime.Now.Hour()
s = s DateTime.Now.Minute()
s = s DateTime.Now.Second()
MsgBox(s, vbDefaultButton1, Now())
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String
s = Format(Now(), "yyyymmddhhmmss")
MsgBox(s, vbYes, Now())
End Sub
可以訪問注冊表HKEY_CURRENT_USER\Control Panel\International下面的一些鍵值
如sShortDate鍵值表示的是短日期sLongDate表示的是長日期
中文下的短日期是 yyyy-M-d
中文下的長日期是 yyyy'年'M'月'd'日'
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)前日期是幾號
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是:" Yourday)
可以使用VB.NET中的DataTime對象的AddMonths方法:
Dim d1 As Date = Now
MsgBox(d1) '顯示現(xiàn)在的機(jī)器日期與時間
MsgBox(d1.AddMonths(2)) '顯示現(xiàn)在的機(jī)器日期加上2個月的對應(yīng)日期與時間
MsgBox(d1.AddMonths(-1)) '顯示現(xiàn)在的機(jī)器日期減掉1個月的對應(yīng)日期與時間
DataTime對象的方法很多,你可以通過在線查閱,例如:
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等!
注意:從字面意思可以理解是加,而括號里是填寫對應(yīng)的數(shù)值,當(dāng)數(shù)值為負(fù)數(shù),起到減的作用了。
在應(yīng)用開發(fā)中,開發(fā)人員經(jīng)常要進(jìn)行各種各樣的日期處理。如果你需要一種簡單的方法來計算出給定兩個日期間的天數(shù),不妨考慮使用VB.NET中的TimeSpan對象。
關(guān)于列表A的一些說明
首先,我們聲明一個Date類型的變量dtStartDate,并賦初值為2007年一月一日。同時,還聲明了其它一些將會用到的變量,包括:TimeSpan的一個實例tsTimeSpan,整型數(shù)iNumberOfDays,字符串型變量strMsgText。設(shè)定變量tsTimeSpan的值為當(dāng)前日期/時間值與dtStartDate值得差。
為了計算出當(dāng)前日期/時間(Now)與dtStartDate之間的天數(shù),我們使用TimeSpan對象的Days屬性,設(shè)定它的值為iNumberOfDays 。
用日期函數(shù)day()可獲得當(dāng)前日期,time()可獲得當(dāng)前系統(tǒng)時間.
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16顯示當(dāng)前日期
now 這個函數(shù)可以獲得當(dāng)前系統(tǒng)時間(包括年月日,小時分鐘秒)
而
year()
month()
day()
等等則可以從now返回的值中分別提取年,月,日的信息