其实vb提供了一个计算两个日期相差的函数datediff，
成都服务器托管，成都创新互联公司提供包括服务器租用、绵阳服务器托管、带宽租用、云主机、机柜租用、主机租用托管、CDN网站加速、申请域名等业务的一体化完整服务。电话咨询：13518219792
在实际应用之中我们可以进行日期相减运算，但是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
新建一个LABEL控件
然后在FORM_LOAD 事件中输入
Label1.caption=year(now()) 'year可以换成month,day,hour,minute,second
label1.caption=label1.caption-1 '减号后面可以输入你想要的数字
就OK了
VB里面，两个时间相减得到的数是需要看其差被声明为啥数据类型。
1）当差被声明为Date数据类型，则两个时间相减得到是一个日期。
相应代码：
Option Explicit
Dim rq As Date
Dim rq1 As Date
Dim sj As Date
Private Sub Command1_Click()
sj = rq1 - rq
Text3 = sj
Debug.Print sj
End Sub
Private Sub Form_Load()
rq = #1/1/2015#
rq1 = Now
Text1 = rq
Text2 = rq1
End Sub
2）当差被声明为Variant数据类型，则两个时间相减得到是双精度浮点数。
相应代码：
Option Explicit
Dim rq As Date
Dim rq1 As Date
Dim sj As Variant
Private Sub Command1_Click()
sj = rq1 - rq
Text3 = sj
Debug.Print sj
End Sub
Private Sub Form_Load()
rq = #1/1/2015#
rq1 = Now
Text1 = rq
Text2 = rq1
End Sub
Date 数据类型：
Date 变量存储为 IEEE 64 位（8 个字节）浮点数值形式，其可以表示的日期范围从 100 年 1 月 1 日到 9999 年 12 月 31 日，而时间可以从 0:00:00 到
23:59:59。任何可辨认的文本日期都可以赋值给 Date 变量。日期文字须以数字符号 (#)
扩起来，例如，#January 1, 1993# 或 #1 Jan 93#。
Double 数据类型：
Double（双精度浮点型）变量存储为 IEEE 64 位（8 个字节）浮点数值的形式，它的范围在负数的时候是从 -1.79769313486232E308 到 -4.94065645841247E-324，而正数的时候是从 4.94065645841247E-324 到 1.79769313486232E308。
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 日的星期为第一周。