Question

请问下vb如果返回两个日期之间的间隔呢？

Answer 1

可以参考下面的代码：

Private Sub DTPicker1_Change()

Text1.Text = DateDiff("d", DTPicker1, DTPicker2)

End Sub

Private Sub DTPicker2_Change()

Text1.Text = DateDiff("d", DTPicker1, DTPicker2)

End Sub

扩展资料：

VB参考函数

Date 函数： 返回当前系统日期。 

DateAdd 函数： 返回加上了指定的时间间隔的日期。 

DateDiff 函数： 返回两个日期之间的间隔。 

DatePart 函数： 返回给定日期的指定部分。 

DateSerial 函数： 返回指定年月日的日期子类型的变体 。 

DateValue 函数： 返回日期子类型的变体 。 

Day 函数： 返回日期，取值范围为 1 至 31。 

参考资料来源：百度百科-Visual Basic