Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當(dāng)前日期字符串
創(chuàng)新互聯(liá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 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)
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個(gè)函數(shù)是用于把字符型變量轉(zhuǎn)換成日期型變量,
字符型變量(本例中的a)如果不是標(biāo)準(zhǔn)的日期格式,請(qǐng)先用字符串函數(shù)處理成標(biāo)準(zhǔn)日期格式再用CDate函數(shù)進(jìn)行轉(zhuǎn)換,否則會(huì)報(bào)錯(cuò)
在應(yīng)用開(kāi)發(fā)中,開(kāi)發(fā)人員經(jīng)常要進(jìn)行各種各樣的日期處理。如果你需要一種簡(jiǎn)單的方法來(lái)計(jì)算出給定兩個(gè)日期間的天數(shù),不妨考慮使用VB.NET中的TimeSpan對(duì)象。 列表A向你演示了如何使用TimeSpan對(duì)象來(lái)獲得兩個(gè)日期間的時(shí)間值。今后,你可以使用Subtract方法來(lái)獲得兩個(gè)日期間的實(shí)際天數(shù)。 關(guān)于列表A的一些說(shuō)明 首先,我們聲明一個(gè)Date類型的變量dtStartDate,并賦初值為2007年一月一日。同時(shí),還聲明了其它一些將會(huì)用到的變量,包括:TimeSpan的一個(gè)實(shí)例tsTimeSpan,整型數(shù)iNumberOfDays,字符串型變量strMsgText。設(shè)定變量tsTimeSpan的值為當(dāng)前日期/時(shí)間值與dtStartDate值得差。 為了計(jì)算出當(dāng)前日期/時(shí)間(Now)與dtStartDate之間的天數(shù),我們使用TimeSpan對(duì)象的Days屬性,設(shè)定它的值為iNumberOfDays 。查看本文來(lái)源
新聞名稱:vb.net日期處理 vb中的日期函數(shù)
轉(zhuǎn)載注明:http://m.rwnh.cn/article0/hhgpoo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供響應(yīng)式網(wǎng)站、小程序開(kāi)發(fā)、App開(kāi)發(fā)、營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站收錄、網(wǎng)頁(yè)設(shè)計(jì)公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)