Question

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

例如：
用“2007-6-17”-“date”

其中被减数是一个日期，而减数是今天的日期。

不胜感激！

Answer 1

其实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

Answer 2

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

Answer 3

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

Answer 4

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