vb.net(2008)如何实现日期相加?

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的一样！

vb 日期天数的累加

以下这个函数可以计算任意一天是当年的第几天，入口参数输入要计算的日期，函数返回值为当年的第几天。

Function CalDt(Dt As Date) As Integer

Dim Year As String

Dim Diff As Integer

Year = Format(Dt, "yyyy-01-01") '获得当年的第一天

Diff = DateDiff("d", Year, Dt) '计算两个日期间的差距

Diff = Diff + 1 '增加一天，即从1开始

CalDt = Diff

End Function

把日期控件得到的日期作为入口参数，定义一个整形变量获得返回值，然后把返回值显示在位文本中即可。

补充：

DateDiff函数支持闰年的自动处理，我刚测试过的，没有问题的。

vb.net日期类型怎样加1，例如:今天是2012/5/19,加1之后变成2012/5/20?

您好，请调用AddDays函数！

给个小例子：给DateTimePicker1控件的日期的天数加1 。则是这样！

DateTimePicker1.Value = DateTimePicker1.Value.AddDays(1)

有问题HI我！

vb.net 时间相加

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

vb 怎么在当前日期上加一天

日期型数据其本质上是个双精度浮点数，其整数部分代表从1899年12月30日算起到这个日期的天数，小数部分则代表该时刻在一天24小时内所处的百分比（比如中午12点就是0.5，晚上六点就是0.75）。因此，如果你想把某个日期加一天，直接把它+1就行了，比如你试试下面的代码：

MsgBox "明天是" Date + 1

新闻名称：vb.net日期天数加一 vb日期加减天数
文章起源：http://kswjz.com/article/hgippo.html