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

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

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

Dim d1 As Date = Now

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

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

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

DataTime對象的方法很多，你可以通過在線查閱，例如：

d1.Add()

d1.AddDays()

d1.AddHours()

d1.AddMinutes()

d1.AddSeconds()

d1.AddYears()

等等！

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

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

新建一個LABEL控件

然后在FORM_LOAD 事件中輸入

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

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

就OK了

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

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

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

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

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

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

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

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

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

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

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

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)