vb点虐 时间相加

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里，如何将日期加减，得出天数？

其实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

vb点虐 中 日期怎样实现减法

新建一个LABEL控件

然后在FORM_LOAD 事件中输入

Label1.caption=year(now()) 'year可以换成month,day,hour,minute,second

label1.caption=label1.caption-1 '减号后面可以输入你想要的数字

就OK了

VB点虐 写一个方法，求一个时间变量=系统当前年月时间-去5个月的时间，求大神指点

可以使用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()

等等！

注意：从字面意思可以理解是加，而括号里是填写对应的数值，当数值为负数，起到减的作用了。

分享文章：vb点虐 怎么日期加减 vbscript 日期函数
网址分享：http://myzitong.com/article/ddgjppo.html