可以使用VB.NET中的DataTime对象的AddMonths方法：
10年积累的网站制作、成都做网站经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有乌拉特后免费网站建设让你可以放心的选择与我们合作。
Dim d1 As Date = Now
MsgBox(d1) '显示现在的机器日期与时间
MsgBox(d1.AddMonths(2)) '显示现在的机器日期加上2个月的对应日期与时间
MsgBox(d1.AddMonths(-1)) '显示现在的机器日期减掉1个月的对应日期与时间
DataTime对象的方法很多，你可以通过在线查阅，例如：
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等！
注意：从字面意思可以理解是加，而括号里是填写对应的数值，当数值为负数，起到减的作用了。
字符串变量=Format(表示日期的常量或变量, "yyyy/mm/dd")
如果不行就自己写
year(now) "/" month(mow) "/" day(mow)
还可以这样：
默认的now是2010-04-30格式
然后执行字符串替换，把-替换为/即可
replace(date,"-","/")
格式是：
Dim s As Date
s=#“输入的日期”#
日期型常量是用#号包围的,上面的日期在VB中会自动转换成。
比如：
Dim s As Date
s=#2010-2-2 8:00:00#
#2/2/2010 8:00:00 AM# '月/日/年 时:分:秒
数据类型中的日期型（Date）___取值范围：（100/1/1~9999/12/31)日期型数据专门用来处理日期和时间。VB采用一对“＃”把日期和时间的值括起来，如＃2003/08/20＃表示2003年8月20日。
