Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當前日期字符串
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供勐海網(wǎng)站建設、勐海做網(wǎng)站、勐海網(wǎng)站設計、勐海網(wǎng)站制作等企業(yè)網(wǎng)站建設、網(wǎng)頁設計與制作、勐海企業(yè)網(wǎng)站模板建站服務,十年勐海做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡服務。
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '當前日期轉(zhuǎn)換成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '獲得當前日期是星期幾
Dim differadd As Integer = 1 - ThisWeekDay '相差的天數(shù)(星期1與當前星期幾相差的天數(shù))
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy") '獲取當前日期的年份
Dim MyMonth As Integer = Format(Now, "MM") '獲取當前日期的月份
Dim MyDay As Integer = Format(Now, "dd") '獲取當前日期是幾號
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是:" Yourday)
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個函數(shù)是用于把字符型變量轉(zhuǎn)換成日期型變量,
字符型變量(本例中的a)如果不是標準的日期格式,請先用字符串函數(shù)處理成標準日期格式再用CDate函數(shù)進行轉(zhuǎn)換,否則會報錯
在應用開發(fā)中,開發(fā)人員經(jīng)常要進行各種各樣的日期處理。如果你需要一種簡單的方法來計算出給定兩個日期間的天數(shù),不妨考慮使用VB.NET中的TimeSpan對象。 列表A向你演示了如何使用TimeSpan對象來獲得兩個日期間的時間值。今后,你可以使用Subtract方法來獲得兩個日期間的實際天數(shù)。 關(guān)于列表A的一些說明 首先,我們聲明一個Date類型的變量dtStartDate,并賦初值為2007年一月一日。同時,還聲明了其它一些將會用到的變量,包括:TimeSpan的一個實例tsTimeSpan,整型數(shù)iNumberOfDays,字符串型變量strMsgText。設定變量tsTimeSpan的值為當前日期/時間值與dtStartDate值得差。 為了計算出當前日期/時間(Now)與dtStartDate之間的天數(shù),我們使用TimeSpan對象的Days屬性,設定它的值為iNumberOfDays 。查看本文來源