vb.net日期减 vb中日期相减

vb.net 中 日期怎样实现减法

新建一个LABEL控件

成都创新互联专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、成都网站建设、镇坪网络推广、小程序开发、镇坪网络营销、镇坪企业策划、镇坪品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联为所有大学生创业者提供镇坪建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

然后在FORM_LOAD 事件中输入

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

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

就OK了

vb.net计算两个日期之间相差多少天

function getTime2Time($time1, $time2)

{

var time1 = arguments[0], time2 = arguments[1];

time1 = Date.parse(time1)/1000;

time2 = Date.parse(time2)/1000;

var time_ = time1 - time2;

return (time_/(3600*24));

}

document.write(getTime2Time('2016-08-02', '2016-07-02'));

VB.net 写一个方法，求一个时间变量=系统当前年月时间-去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.net中的时间怎么做相加和相减，谢谢

DateAdd函数 返回

返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。

语法

DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，是所要加上去的时间间隔。

number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。

date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

DateDiff函数 返回

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔

Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

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

给你个例子：

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.net)

直接用两个日期相减，返回一个timespan实例，它的Days属性就是天数。

dim d1 as datetime, d2 as datetime

dim days as integer

d1 = DateTime.Today.AddDays(-1)

d2 = DateTime.Today

days = (d2 - d1).Days