189 8069 5689
给你个例子：
路桥网站建设公司创新互联建站,路桥网站设计制作，有大型网站制作公司丰富经验。已为路桥上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
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 日的星期为第一周。
新建一个LABEL控件
然后在FORM_LOAD 事件中输入
Label1.caption=year(now()) 'year可以换成month,day,hour,minute,second
label1.caption=label1.caption-1 '减号后面可以输入你想要的数字
就OK了
直接用两个日期相减，返回一个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
.Net中是不能使用控件的默认属性的，所有属性都要显式地写出来。
应该这样：
Dim resulttime As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value)
MessageBox.Show(resulttime)
另外，resulttime也最好写成：resulttime.ToString ，这样显式地转换成字符串类型。