可以使用VB.NET中的DataTime對象的AddMonths方法:
蕪湖網(wǎng)站建設公司創(chuàng)新互聯(lián),蕪湖網(wǎng)站設計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為蕪湖數(shù)千家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設公司要多少錢,請找那個售后服務好的蕪湖做網(wǎng)站的公司定做!
Dim d1 As Date = Now
MsgBox(d1) '顯示現(xiàn)在的機器日期與時間
MsgBox(d1.AddMonths(2)) '顯示現(xiàn)在的機器日期加上2個月的對應日期與時間
MsgBox(d1.AddMonths(-1)) '顯示現(xiàn)在的機器日期減掉1個月的對應日期與時間
DataTime對象的方法很多,你可以通過在線查閱,例如:
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等!
注意:從字面意思可以理解是加,而括號里是填寫對應的數(shù)值,當數(shù)值為負數(shù),起到減的作用了。
VB有現(xiàn)成的函數(shù):
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的時間差,代碼:
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '還有幾(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '還有幾(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '還有幾(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '還有幾(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '還有幾(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '還有幾(整)小時
DateDiff("n",Now,#2010-5-1 8:00:00#) '還有幾(整)分鐘
DateDiff("s",Now,#2010-5-1 8:00:00#) '還有幾(整)秒
1、時間可以直接比較大小,定義兩個時間的變量,直接使用或者即可判斷,跟數(shù)據(jù)大小判斷是一樣的
2、時間差值,可以使用DateDiff函數(shù)進行
3、比如取一個現(xiàn)在的時間now,使用Year、month、day、hour、min、sec函數(shù)可以取到now的年份、月、日、小時、分鐘和秒
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 日的星期為第一周。