vb.net 中 日期怎樣實(shí)現(xiàn)減法

新建一個(gè)LABEL控件

創(chuàng)新互聯(lián)2013年開創(chuàng)至今，先為廣州等服務(wù)建站，廣州等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為廣州企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

然后在FORM_LOAD 事件中輸入

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

label1.caption=label1.caption-1 '減號(hào)后面可以輸入你想要的數(shù)字

就OK了

在vb里，如何將日期加減，得出天數(shù)？

其實(shí)vb提供了一個(gè)計(jì)算兩個(gè)日期相差的函數(shù)datediff，

在實(shí)際應(yīng)用之中我們可以進(jìn)行日期相減運(yùn)算，但是vb推薦的還是

使用vb自己提供的內(nèi)部函數(shù)為好！

一個(gè)例子：

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.net中的時(shí)間怎么做相加和相減，謝謝

DateAdd函數(shù) 返回

返回包含一個(gè)日期的 Variant (Date)，這一日期還加上了一段時(shí)間間隔。

語(yǔ)法

DateAdd(interval, number, date)

DateAdd 函數(shù)語(yǔ)法中有下列命名參數(shù)：

部分 描述

interval 必要。字符串表達(dá)式，是所要加上去的時(shí)間間隔。

number 必要。數(shù)值表達(dá)式，是要加上的時(shí)間間隔的數(shù)目。其數(shù)值可以為正數(shù)（得到未來的日期），也可以為負(fù)數(shù)（得到過去的日期）。

date 必要。Variant (Date) 或表示日期的文字，這一日期還加上了時(shí)間間隔。

DateDiff函數(shù) 返回

返回 Variant (Long) 的值，表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。

語(yǔ)法

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

DateDiff 函數(shù)語(yǔ)法中有下列命名參數(shù)：

部分 描述

interval 必要。字符串表達(dá)式，表示用來計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔

Date1□date2 必要；Variant (Date)。計(jì)算中要用到的兩個(gè)日期。

Firstdayofweek 可選。指定一個(gè)星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。

firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含 1 月 1 日的星期為第一周。

vb.net(2008)如何實(shí)現(xiàn)日期相加?

Dim d ad Date

Dim mDay as Double

d=Now.Date'設(shè)置當(dāng)天日期或自定義日期CDate("2009-1-9")

mDay=365 '設(shè)置天數(shù)(或-365)

'以長(zhǎng)日期格式返回相距指定天數(shù)

Text1.Tex=d.AddDays(mDay).ToLongDateString

效果和你在vb6的一樣！

VB.net如何時(shí)間相減，我正在做一個(gè)提示還書的窗口，怎么讓現(xiàn)在日期減去當(dāng)時(shí)借書的日期，然后顯示出小于5天

給你個(gè)例子：

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