在vb里，如何将日期加减，得出天数？

在vb里，如何将日期加减，得出天数？

日期运算符与日期表达式
日期表达式是用日期运算符“+”或“-”用算数表达式、日期型常量、日期型变量、日期函数等连接起来的式子。有一下三种运算方式：
①两个日期型数据相减，其结果是一个数值型数据（相差的天数）
②日期型数据加上天数，其结果为一个日期型数据
③日期型数据减去天数，其结果为一个日期型数据

如果只是取得天数的话，可以直接相减，如：
Msgbox CDate("2007-06-17") - CDate("2007-01-17")

Dim rishu As Integer = DateDiff("d", ri1, today)

其实vb提供了一个计算两个日期相差的函数datediff，
在实际应用之中我们可以进行日期相减运算，但是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