vb点虐 日期加减 vbnet日期加减

VB点虐 如何时间相减，我正在做一个提示还书的窗口，怎么让现在日期减去当时借书的日期，然后显示出小于5天

给你个例子：

我们提供的服务有：做网站、成都网站建设、微信公众号开发、网站优化、网站认证、阳城ssl等。为上1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的阳城网站制作公司

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyEndDate As New DateTime(2012, 8, 8)

Dim MyStartDate As DateTime = DateTime.Now

Dim MySpan As TimeSpan = MyEndDate.Subtract(MyStartDate)

Dim MyInfo As String = "离2012年8月宽腊8日还有慎拆滑" + _

Math.Round(MySpan.TotalDays, 0).ToString() + "御升天"

MessageBox.Show(MyInfo, "信息", _

MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

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点虐 中 日期怎样实现减法

新建一个LABEL控件

然后在FORM_LOAD 事件中输入

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

label1.caption=label1.caption-1 '棚晌减号后兄和行羡哗面可以输入你想要的数字

就OK了

在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