Module Module1
龙华网站建设公司成都创新互联,龙华网站设计制作，有大型网站制作公司丰富经验。已为龙华1000多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的龙华做网站的公司定做！
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我！
日期型数据其本质上是个双精度浮点数，其整数部分代表从1899年12月30日算起到这个日期的天数，小数部分则代表该时刻在一天24小时内所处的百分比（比如中午12点就是0.5，晚上六点就是0.75）。因此，如果你想把某个日期加一天，直接把它+1就行了，比如你试试下面的代码：
MsgBox "明天是" Date + 1