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

来源：百度知道 编辑：UC知道 时间：2024/06/23 00:34:31
在vb6可以用date加365后返回明年的今日，如:

'今天是2009-01-09

dim mDate as String

mDate=format(Date+365,"yyyy-MM-dd")

mDate 返回 2010-01-09

但在VB.Net似乎不行，请问在.Net如何实现这样的结果？
2楼的可以了，但我要返回的结果格式不是xxxx年x月x日，而是xxxx-xx-xx，该如何？

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

Long Date去掉
Private Sub Command1_Click()
MsgBox Format("2009/01/17", "yyyy-mm-d")
End Sub

dim a as date
a=cdate("2009-1-9")
a.Addyears(1)
a.tolongdatestring
如果是-1就是减一年

这个问题同意二楼的

原来有函数......