VB.net 寫(xiě)一個(gè)方法，求一個(gè)時(shí)間變量=系統(tǒng)當(dāng)前年月時(shí)間-去5個(gè)月的時(shí)間，求大神指點(diǎn)

可以使用VB.NET中的DataTime對(duì)象的AddMonths方法：

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、微信小程序、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了新華免費(fèi)建站歡迎大家使用！

Dim d1 As Date = Now

MsgBox(d1) '顯示現(xiàn)在的機(jī)器日期與時(shí)間

MsgBox(d1.AddMonths(2)) '顯示現(xiàn)在的機(jī)器日期加上2個(gè)月的對(duì)應(yīng)日期與時(shí)間

MsgBox(d1.AddMonths(-1)) '顯示現(xiàn)在的機(jī)器日期減掉1個(gè)月的對(duì)應(yīng)日期與時(shí)間

DataTime對(duì)象的方法很多，你可以通過(guò)在線查閱，例如：

d1.Add()

d1.AddDays()

d1.AddHours()

d1.AddMinutes()

d1.AddSeconds()

d1.AddYears()

等等！

注意：從字面意思可以理解是加，而括號(hào)里是填寫(xiě)對(duì)應(yīng)的數(shù)值，當(dāng)數(shù)值為負(fù)數(shù)，起到減的作用了。

vb.net 中 日期怎樣實(shí)現(xiàn)減法

新建一個(gè)LABEL控件

然后在FORM_LOAD 事件中輸入

Label1.caption=year(now()) 'year可以換成month,day,hour,minute,second

label1.caption=label1.caption-1 '減號(hào)后面可以輸入你想要的數(shù)字

就OK了

VB 當(dāng)前日期 減去 一個(gè)月

Private Function 減去整月(基準(zhǔn)時(shí)間 As Date, 月數(shù) As Integer) As Date

y = Year(基準(zhǔn)時(shí)間)

m = Month(基準(zhǔn)時(shí)間)

d = Day(基準(zhǔn)時(shí)間)

m = m - 月數(shù)

Do While m 1

m = m + 12

y = y - 1

Loop

減去整月 = CDate(y "-" m "-" d)

End Function

Private Sub Command1_Click()

Print 減去整月(Now, 1)

End Sub

有了這個(gè)函數(shù)，想減幾個(gè)月就減幾個(gè)月，不怕大月、不怕小月、也不怕閏月！

補(bǔ)充，你的函數(shù)因該這樣用：

DateAdd("m", -1, Now())

分享標(biāo)題：vb.net日期減月份 vb日期加減天數(shù)
網(wǎng)站鏈接：http://aaarwkj.com/article16/docphgg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、云服務(wù)器、自適應(yīng)網(wǎng)站、網(wǎng)站設(shè)計(jì)、虛擬主機(jī)、靜態(tài)網(wǎng)站

廣告

聲明：本網(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)