重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以使用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中也可以使用了。