可以用DateAdd("m",1,Date1)實現(xiàn);
網(wǎng)站建設哪家好,找成都創(chuàng)新互聯(lián)公司!專注于網(wǎng)頁設計、網(wǎng)站建設、微信開發(fā)、微信小程序開發(fā)、集團企業(yè)網(wǎng)站建設等服務項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了泰順免費建站歡迎大家使用!
具體參考如下:
Private Function 加整月(基準時間 As Date, 月數(shù) As Integer) As Date
y = Year(基準時間)
m = Month(基準時間)
d = Day(基準時間)
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ù),想加幾個月就加幾個月,不怕大月、不怕小月、也不怕閏月。
您好,請調(diào)用AddDays函數(shù)!
給個小例子:給DateTimePicker1控件的日期的天數(shù)加1 。則是這樣!
DateTimePicker1.Value = DateTimePicker1.Value.AddDays(1)
有問題HI我!
DateAdd函數(shù) 返回
返回包含一個日期的 Variant (Date),這一日期還加上了一段時間間隔。
語法
DateAdd(interval, number, date)
DateAdd 函數(shù)語法中有下列命名參數(shù):
部分 描述
interval 必要。字符串表達式,是所要加上去的時間間隔。
number 必要。數(shù)值表達式,是要加上的時間間隔的數(shù)目。其數(shù)值可以為正數(shù)(得到未來的日期),也可以為負數(shù)(得到過去的日期)。
date 必要。Variant (Date) 或表示日期的文字,這一日期還加上了時間間隔。
DateDiff函數(shù) 返回
返回 Variant (Long) 的值,表示兩個指定日期間的時間間隔數(shù)目。
語法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函數(shù)語法中有下列命名參數(shù):
部分 描述
interval 必要。字符串表達式,表示用來計算date1 和 date2 的時間差的時間間隔
Date1□date2 必要;Variant (Date)。計算中要用到的兩個日期。
Firstdayofweek 可選。指定一個星期的第一天的常數(shù)。如果未予指定,則以星期日為第一天。
firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定,則以包含 1 月 1 日的星期為第一周。