重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Module Module1
我们提供的服务有:成都网站制作、网站设计、微信公众号开发、网站优化、网站认证、华州ssl等。为千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的华州网站制作公司
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提供了一个计算两个日期相差的函数datediff,
在实际应用之中我们可以进行日期相减运算,但是vb推荐的还是
使用vb自己提供的内部函数为好!
一个例子:
Private Sub Command1_Click()
Dim days As Integer
Dim data1 As Date
Dim data2 As Date
data1 = #2/21/2006# 'O2 / 21 / 2006
data2 = #3/21/2006#
days = DateDiff("d", data1, data2)
Text1.Text = Str(days)
End Sub
新建一个LABEL控件
然后在FORM_LOAD 事件中输入
Label1.caption=year(now()) 'year可以换成month,day,hour,minute,second
label1.caption=label1.caption-1 '减号后面可以输入你想要的数字
就OK了
可以使用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()
等等!
注意:从字面意思可以理解是加,而括号里是填写对应的数值,当数值为负数,起到减的作用了。