Dim d ad Date
创新互联是一家集网站建设,索县企业网站建设,索县品牌网站建设,网站定制,索县网站建设报价,网络营销,网络优化,索县网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
Dim mDay as Double
d=Now.Date'设置当天日期或自定义日期CDate("2009-1-9")
mDay=365 '设置天数(或-365)
'以长日期格式返回相距指定天数
Text1.Tex=d.AddDays(mDay).ToLongDateString
效果和你在vb6的一样！
Module Module1
Sub Main()
Console.WriteLine(DateTimeAdd("01:23:45"))
Console.ReadLine()
End Sub
''' summary
''' 获取时间的累加值
''' /summary
''' param name="sDatetime"/param
''' returns/returns
''' remarks/remarks
Private Function DateTimeAdd(ByVal sDatetime As String) As DateTime
Dim sysTime As DateTime = DateTime.Now
Return sysTime.Add(TimeSpan.Parse(sDatetime))
End Function
End Module
您好，请调用AddDays函数！
给个小例子：给DateTimePicker1控件的日期的天数加1 。则是这样！
DateTimePicker1.Value = DateTimePicker1.Value.AddDays(1)
有问题HI我！