189 8069 5689
可以使用VB.NET中的DataTime对象的AddMonths方法：
成都创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站设计制作、成都网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的延川网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
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()
等等！
注意：从字面意思可以理解是加，而括号里是填写对应的数值，当数值为负数，起到减的作用了。
为了线程安全，微软规定线程不能直接访问窗体控件，需要用委托的方式，窗体代码中增加：
Delegate Sub SetTextDelegate(txt As String)
Private Sub SetText(ByVal Result As String)
If Me.lblTime.InvokeRequired Then
Dim d As New SetTextDelegate(AddressOf SetText)
Me.Invoke(d, New Object() {Result})
Else
Me.lblTime.Text = Result
End If
End Sub
然后在线程中需要更改lblTime时，用：
SetText("当前时间:" System.DateTime.Now)
Datebl=#10/10/2001#
不知道用不用加双引号
其实字符串直接可以隐式转换成日期型的
dim date as DateTime = DateTime.Parse(TextBox1.Text)
TextBox2.Text = date.ToShortDateTime()
日期类型有好多种转换表达式， 特别的使用.ToString("YYYY-mm-dd") 这种形式可以自定义ToString里面的格式化样式。
数组好像没有快速赋值吧，或者你再把问题再清楚一点。
语句执行时间倒是可以做到。在语句前
Dim oldTime As Date = Now
在过程语句后加
Dim newTime As Date = Now
Dim differenceInSeconds As Long = DateDiff(DateInterval.Second, oldTime, newTime)
textbox1.text= "共用了:" differenceInSeconds "秒!"
这句代码
counter = 1
和这句
counter = counter 1
是等效的，上面那个是二元运算符，原本是C家族语言的特性，在VB.Net中也可以使用了。