VB點虐 做一個時間減法可以返回相差天數(shù)，為毛這樣寫不行？求教....坐等答案

.Net中是不能使用控件的默認(rèn)屬性的，所有屬性都要顯式地寫出來。

創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供黃埔網(wǎng)站建設(shè)、黃埔做網(wǎng)站、黃埔網(wǎng)站設(shè)計、黃埔網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、黃埔企業(yè)網(wǎng)站模板建站服務(wù)，十載黃埔做網(wǎng)站經(jīng)驗，不只是建網(wǎng)站，更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。

應(yīng)該這樣：

Dim resulttime As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value)

MessageBox.Show(resulttime)

另外，resulttime也最好寫成：resulttime.ToString ，這樣顯式地轉(zhuǎn)換成字符串類型。

VB點虐 寫一個方法，求一個時間變量=系統(tǒng)當(dāng)前年月時間-去5個月的時間，求大神指點

可以使用VB.NET中的DataTime對象的AddMonths方法：

Dim d1 As Date = Now

MsgBox(d1) '顯示現(xiàn)在的機器日期與時間

MsgBox(d1.AddMonths(2)) '顯示現(xiàn)在的機器日期加上2個月的對應(yīng)日期與時間

MsgBox(d1.AddMonths(-1)) '顯示現(xiàn)在的機器日期減掉1個月的對應(yīng)日期與時間

DataTime對象的方法很多，你可以通過在線查閱，例如：

d1.Add()

d1.AddDays()

d1.AddHours()

d1.AddMinutes()

d1.AddSeconds()

d1.AddYears()

等等！

注意：從字面意思可以理解是加，而括號里是填寫對應(yīng)的數(shù)值，當(dāng)數(shù)值為負(fù)數(shù)，起到減的作用了。

我想知道vb點虐 中的時間怎么做相加和相減，謝謝

DateAdd函數(shù) 返回

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

語法

DateAdd(interval, number, date)

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

部分 描述

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

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

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

DateDiff函數(shù) 返回

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

語法

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

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

部分 描述

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

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

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

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

VB點虐 如何時間相減，我正在做一個提示還書的窗口，怎么讓現(xiàn)在日期減去當(dāng)時借書的日期，然后顯示出小于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