在vb里,如何将日期加减,得出天数?

发布网友发布时间：2022-04-13 09:26

共5个回答

热心网友时间：2022-04-13 10:55

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

热心网友时间：2022-04-13 12:13

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

热心网友时间：2022-04-13 13:48

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

热心网友时间：2022-04-13 15:39

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